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TI-99! 

GEISER-Zubehör: Bekannt für Qualität! 
Ab sofort sind die erfolgreichsten ID- 
Programme auch im Ausland erhältlich. 
Versand gegen Nachnahme (ab sFr 100, 
— frei Haus). Preise in sFr. 


ID-DATA*: 


98,- 


Super-Datenverwaltungsprogramm: Edi¬ 
tieren, sortieren, selektieren, drucken; 
kompatibel zu Tl-Writer, Mailmerge. 500 
Einträge (10 Zeilen) je Disk. 

ID-KONTO*: 98,- 

Endlich ein Profi-Programm für Konten¬ 
verwaltung und doppelte Buchhaltung. 
Bilanz, Erfolg, Journal, 99 Konten, 1000 
Buchungen/Disk. 

PROFI-SET*: 168,- 

Besteht aus ID-DATA + ID-KONTO. 
*32K, 1 Disk, X-BASIC (Drucker). Mit 
Assembler-Routinen, Größter Bedie¬ 
nungskomfort. Sie werden staunen! 

TI-LOGO-DT: 49,- 

240 Seiten, viele Bilder und Programme 
Vergleichsregister deutsch-franz-eng- 
lisch im Anhang. Sonderauflage! 


TI99-Zubehör, Fabrikstr. 9 
CH-3360 Herzogenbuchsee (Schweiz) 

Bezugsquellen BRD: 

REIS, Bullay 06542/2715 
Alltronic, Oetish. 07041/2747 
RADIX, Hamburg 040/441695 

*************** 


Grüß Gott—Gruezi—Guten Tag 


Vor Ihnen liegt die 5. Ausgabe der 
TI-REVUE. Nun ist es ja gerade 
erst knapp über einen Monat her, 
da hatten wir die vierte Ausgabe 
ausgeliefert. Deshalb möchten wir 
hier nochmals erwähnen, daß die 
TI-REVUE normalerweise alle 
zwei Monate erscheint. Wir wol¬ 
len momentan nur durch eine kür¬ 
zere Erscheinungsweise die Ver¬ 
spätung, die Anfang des Jahres lei¬ 
der entstanden ist, wieder auf- 
holen, so daß bis zum Jahresende 
wieder alles in der richtigen Bahn 
läuft. 

Unser ,,heißes Telefon" für Eure 
Fragen entwickelt sich zu einem 
Erfolg. Unter der Nr. 0731/33220 
stehen Euch jeden Dienstag von 
15 bis 19 Uhr Experten für Eure 
Fragen zur Verfügung. Bitte nur 
Dienstags an rufen. An den anderen 
Wochentagen ist das Telefon nicht 
besetzt bzw. unser Redakteur, bei 
dem das heiße Telefon installiert 
ist, muß auch einmal etwas arbei¬ 
ten (damit Ihr die TI-REVUE 
immer pünktlich in den Händen 
haltet). Achtung: Das heiße Tele¬ 
fon ist am Dienstag, den 19.6.85 
und 25.6.85 nicht besetzt, da ist 
besagter Redakteur im Urlaub 
(hat der es gut)! 

In den letzten Wochen hat der er¬ 


weiterte Redaktionsstab auch alle 
bisher nicht beantworteten An¬ 
fragen auf gearbeitet. Hat einer 
von Euch bis heute noch keine 
Antwort auf einen Brief an uns, 
so müssen wir leider davon aus¬ 
gehen, daß dieser Brief bei der 
Neuordnung verloren gegangen 
ist. So leid es uns tut, bitte 
schreibt uns Eure Fragen dann 
noch einmal oder meldet Euch 
über das heiße Telefon. Grund¬ 
sätzlich bemühen wir uns, alle 
Eure Briefe und auch Eure Ein¬ 
sendungen von Programmen und 
Berichten innerhalb kürzester Zeit 
zu beantworten. 

Einschließlich des Postwegs kann 
es aber schon bis zu drei Wochen 
dauern (in der Urlaubszeit viel¬ 
leicht auch länger). Bei Berichten 
oder Programmen kann die end¬ 
gültige Bestätigung auch etwas 
länger dauern, Ihr erhaltet dann 
aber vorab eine Eingangsbestä¬ 
tigung. 

Das nächste Heft kommt Ende 
Juni, also nicht versäumen und 
bis dahin die besten Grüße von 
Eurem TI-REVUE-Team 

Und nicht vergessen: Seid Ihr mit 
dem Heft unzufrieden, sagt es uns, 
Seid Ihr zufrieden, sagt es weiter. 
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Hardware: U 

Tl-Box, Disklaufw., Contr. 
32 K-Erw.+lO Disk. 

32 K-Erw. extern 
Druckerinterface extern 
Drucker GP 50 + Kabel + 
Druckerinterface extern 

dito mit GP 550 
dito mit EPSON RX 80 
dito mit EPSON FX 80 
Graphik Tableau 
Sprachsteuereinheit 
joyst. zweifach 


1898- 

428,- 

348,- 


798,- 

1198,- 

1448,- 

1990,- 

248,- 

348,- 

75,- 


Software: 

Editor Assembler 189,- 
Extendet Basic orig. 295,- 
orig. dito dt.Nachb.248,- 


Mini Memory 
Terminal Emulator 


195 ,- 

99 ,- 




Parsec 

Alpiner 

Tunnels of Doom 
Adventure Modul 
Tl-Logo II dt. 
Tl-Writer 
Mathematik I 
Car Wars 
Munch Man 
Tomstone City 


TI 99/4A 

US-Spiele: 

1 89,- Moon Mine, Sewermania, 
. 295,- Bigfoot, Meteor Belt, 
.248,- M*A»S»H,Microsurgion, 

79 _ Demon Attack, Hopper, 

79 _ Star Treck, Jawbreaker II, 

79 _ Slymoids, Munchmobile, 

79 _ Moonsweeper, Baseball*, 

320^- Terry Turtle's Adventure*, 
320,- Tathom 
99 _ Preis auf Anfrage 


* Sprachsteuereinheit 
notwendig!!! 


Assembler-Hardware Zu¬ 
satz f. TI 99 (nur Extendet- 
BASIC notwendig) 149,- 

ATARI-Spiele f. TI 99: 

Defender, Donkey Kong, 
DIG-DUG, Moon Patrol, 
Pac Man, Jungle Hunt 

je Mod. 99,- 
Picnic-Paranoia, Pool-Posi¬ 
tion, Mrs. Packman, Protec- 
tor, Shammos je Mod. 119,— 

Sonstiges: 

Flugsimulation 49,- 

Staubschutzhaube aus 
Kunstleder 29,- 

und,und,und,und! 


128 K - Karte intern 1198,— 

USCD-PASCAL 4.0 

P-Code Karte, Comp-, Linker Editor 1098,- 
Trodcboll für TI 99 225- 

Basic Compiler Disk. 198,- 

Basic Combiler für M M. 98,- 

Assembler Lemkurs dt. von IDA Diskette 
oder Cas. 98,- 


-SHARP— 


MZ 73t. P««orW-Computer. 64 kß-RAM 
mW Kassettenrekorder. Farbgrafik- 
Drucker. eingebauter HF-MoäulÄO. 
und BG8-An*ct>lue _ 


Brother, Sitver Reed. Seikoshe. HP. 
3 M Sco tc h. Apple, Sanyo. 
Commodore, Atari 


Graphik Tableau für 
TI 99 = 
für VC 64 = 


SfO 700 - Ftoopr tör MZ-700 mtt 

2,0 “ 1390,- 


Zubehör: 

Monitore, Disketten, Drucker- 
butter, Disketten-Organisation. 
Computer-Möbel, Papier 


Abdeckhauben 

Kunstleder mit Leinen 


Preise Stand I 2 85 • Alle Preise inkl. MwSt. Preisliste anfordern! - Lieferung erfolgt per NN oder gegen Verrechnungsscheck 
Bestellungen über DM 500 - werden frei Haus geliefert, unter DM 500 - werden DM 5,- Versandpauschale berechnet. 
RADIX Bürotechnik Rappstr. 13 2000 Hamburg 13 - Telefon 040/441695 - Telex 213682 rodix d 
Händler-Anfragen erwünscht 


türTI 99/4A.CBM 64, „90 

Atari 600. MZ 700 

FX 60 39,90 QX 10 99,00 

Sonderanfertigungen kein Problem' 
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BASICODE FÜR DEN 
TI 99/4A? 


Könnten Sie mich infor¬ 
mieren, ob es Basicode 2 
für den TI 99/4A gibt? 
Dirk Fischer 
5757 Fröndenberg 

Basicode ist eine beson¬ 
dere Form der Übermitt¬ 
lung von Basicprogram- 
men, die vom holländi¬ 
schen Radio Hilversum 
entwickelt worden ist 
und mittlerweile auch 
von WDR und NDR bei 
Computersendungen be¬ 
nutzt wird. Zwischen¬ 
zeitlich werden diverse 
Programme in ßasic- 
code auf Kassette ange- 
boten. Grundgedanke 
dieser Entwicklung war 
es, die Programme von 
den verschiedenen Com¬ 
putertyp en unabhängig 
zu machen. So befinden 
sich auf den Kassetten 
vor dem Programm je¬ 
weils eine spezielle Lade¬ 
routine für den beson¬ 
deren Computertyp. 
Bisher ist es uns nicht 
bekannt, daß der Basic- 
code auch für den TI 99j 
4A zu haben ist, aber 
vielleicht kann hier einer 
der Leser weiterhelfen. 


ADVENTURE-SPIELE 
AUF DISKETTE? 

Meine Adventure-Spiele 
liegen auf Kassette vor 
und jeder Versuch, sie auf 
Diskette zu überspielen, 
schlug fehl. Am Anfang 
sah es zwar so aus, als 
könnte ich das Band mit 
Basic einiesen, aber nach 
“Daten ok, press enter“ 
stieg der Rechner mit ei¬ 
ner Fehlermeldung aus 
und es scheint auch kein 
Programm im Speicher 
abgelegt gewesen zu sein, 
da der Debugger in den 
relevanten Speichern 
nichts anzeigte. 

Können Sie mir einen 
Weg schildern, auf dem 
ich es schaffe, Adventure- 
Spiele von Kassette auf 
Diskette zu übertragen? 
Das Einlesen von Disket¬ 
te ist einfach viel schnel¬ 
ler und komfortabler; 
außerdem habe ich nor¬ 
malerweise keinen Kas¬ 


settenrekorder angeschlos¬ 
sen. Bei meinen Versu¬ 
chen, einen Weg zu fin¬ 
den, stolperte ich noch 
über folgende Frage: Die 
Adventure-Spiele sind an¬ 
scheinend wie ganz nor¬ 
male Basic-Programme ge¬ 
speichert. Nur, in welcher 
Form werden diese eigent¬ 
lich gespeichert? Mit dem 
Tl-Writer und dem As¬ 
sembler lassen sie sich je¬ 
denfalls nicht einiesen, 
da diese nie Fixed/Variable 
80 Format akzeptieren. 
Uwe Schulze 
8501 Eckental-Forth 

Wie Sie richtig bemerkt 
haben, sind die Adventure- 
Spiele in dem gleichen 
Format wie Basic-Pro¬ 
gramme abgespeichert, 
das sogenannte Programm- 
Format. Bei diesem For¬ 
mat wird der Inhalt des 
VDP-RAM-Speichers ein¬ 
fach auf das Spei eher me¬ 
dium übergeben, die An¬ 
zahl Bytes wird vorher in 
dem zum Zugriff auf das 
Speichermedium notwen¬ 
digen PAB angegeben 
(Siehe hierzu die entspre¬ 
chenden Ausführungen 
im Handbuch zum Editor- 
Assembler.) 

Mit einer kleinen Assemb¬ 
ler-Routine, die einmal 
über GPLLNK das Spiel 
von der Kassette einliest 
und dann wieder über 
DSRLNK auf die Disket¬ 
te speichert. Benutzen 
Sie dazu die OP-Codes für 
LOAD und SA VE in den 
PAB ’s. 

Übrigens ist die Verwen¬ 
dung des GPLLNK im 
Hinblick auf den Zugriff 
der Kassettenroutine im 
Editor/Assembler-Hand¬ 
buch falsch beschrieben, 
bitte halten Sie sich hier 
an die Ausführungen im 
Handbuch zum Mini- 
Memory. Zu kompliziert? 
Gut, wir werden im Zuge 
unserer Artikel zum The¬ 
ma Assembler noch nä¬ 
her darauf eingehen. 

Es gibt da aber für das 
Adventure-Modul noch 
etwas ganz Feines: Einen 
Adventure-Editor zum 
Seiberschreiben von Spie¬ 
len für dieses Modul oder 
Ändern der Spiele. Wer 
diesen Editor benutzen 
will, muß sich aber dar¬ 
über im Klaren sein, daß 
er eine neue Programmier¬ 
sprache, nämlich die im 


Adventure-Modul enthal¬ 
tene, lernen muß. Mit 
diesem Programm lassen 
sich die Spiele ebenfalls 
von Kassette auf Diskette 
übertragen. 

Pikanterweise wird dieses 
Programm momentan nur 
in den USA (Fa. Texcomp) 
angeboten, obwohl es hier 
in der Bundesrepublik ge¬ 
schrieben wurde. Die 
Autoren sind hier noch 
auf der Suche nach einem 
Vertrieb. 


eine RS 232C Schnitt¬ 
stelle? 

3. Wo bekomme ich das 
Disk-Manager-Modul? 

4. Wozu ist ein 3. oder 

4. Laufwerk gut? 

5. Das Laufwerk hat 77/ 
Spuren je Oberfläche. 
Bringt das irgendwelche 
Probleme? 

6. In den techn. Daten 
steht, daß die Lebens¬ 
dauer 5 Jahre beträgt. 
Heißt das, daß ich das 
Laufwerk nach 5 Jahren 
verschrotten kann? 


DISK-LAUFWERKE 
FÜR DEN TI 99/4A 

Mehrere Zuschriften er¬ 
reichten uns in Bezug 
auf zum TI 99/4A passen¬ 
de Diskettenlaufwerke. 

Die hier veröffentlichten 
Auszüge sind nur stellver¬ 
tretend: 

* 

Ist es prinzipiell möglich, 
ein Disk-Laufwerk eines 
xbeliebigen Herstellers 
(z.B. BASF) ohne einge¬ 
bauten Controller mit 
einem geeigneten Con¬ 
troller zum TI 99/4A 
kompatibel zu gestalten? 
Thomas Külpmann 
5800 Hagen 

* 

Ich will mir in nächster 
Zeit einen Disketten- 
Controller für meinen 
TI zulegen. Nun möchte 
ich gerne wissen, ob ich 
an diesen jedes beliebige 
Laufwerk anschließen 
kann, oder nur ganz be¬ 
stimmte, die zu meinem 
TI passen? 

Armin Braun 
7292 Mitteltal 

* 

Ich möchte mit Euch 
über den Anschluß von 
Diskettenlaufwerken 
sprechen. Meine Hard¬ 
ware besteht aus Speicher; 
erweiterung, Box, Con¬ 
troller und einer Schnitt¬ 
stelle mit 2 RS232C und 
einem Centronicsan- 
schluß. Ich habe nun eine 
Menge Fragen an Euch: 
Das Laufwerk BASF 6148 
Slimline mit 1,6 MB un- 
- formatiert habe ich mir 
ausgesucht. Meine Fragen 
nun: 

1. Kann ich zwei Lauf¬ 
werke dieses Typs über¬ 
haupt anschließen? 

2. Gibt es Schwierigkei¬ 
ten beim Anschluß an 


Walter Haidinger 
A-3108 St. Pölten 

Zum Anschluß eines Dis¬ 
kettenlaufwerkes an den 
TI wird zuallererst ein¬ 
mal ein Disk-Controller 
benötigt. Zu dessen Lie¬ 
ferumfang gehört auch 
ein Diskettenmanager. 

Der Anschluß eines 
Laufwerkes direkt an die 
RS 232C ist nicht mög¬ 
lich. Disk-Controller sind 
momentan in mehreren 
Ausführungen erhältlich: 
Der original Tl-Controller 
für die P-Box, zwei 
Fremdfabrikate aus den 
USA ebenfalls für die 
P-Box und eine Mini-Er¬ 
weiterung aus den USA, 
die mit einem Disk-Con¬ 
troller ausgerüstet ist 
bzw. werden kann. Allen 
diesen Controllern ge¬ 
meinsam ist, daß die an¬ 
geschlossenen Laufwerke 
40 Spuren je Seite haben 
müssen. Sie können ein¬ 
seitig oder doppelseitig 
sein. Das ist also das erste 
Kriterium: 40 Spuren je 
Seite. Der nächste Punkt 
ist die Dichte, d.h. die 
Menge der Daten, die je 
Spur gespeichert werden 
können; der Tl-Controller 
arbeitet nur mit einfacher 
Dichte, die neueren, aus 
den USA kommenden 
Controller erlauben auch 
das Arbeiten mit doppel¬ 
ter Dichte. Mit einfacher 
Dichte lassen sich 92 K- 
Byte (184KByte bei dop¬ 
pelseitigen Laufwerken) 
speichern, bei doppelter 
Dichte sind es 184KByte 
(368KByte bei doppel¬ 
seitigen Laufwerken). 

Die heute angebotenen 
Laufwerke eignen sich so 
gut wie alle für einfache 
(in den Datenblättern 
meist mit FM bezeichnet) 
und doppelte Dichte 
(MFM), so daß hier nur 
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bei Sonderangeboten aus 
irgendwelchen Restpo¬ 
sten aufgepaßt werden 
muß. Nun muß noch die 
Schnittstelle des Lauf¬ 
werkes zum Disk-Con¬ 
troller passen. Ein Lauf¬ 
werk, welches mit dem 
34poligen Platinensteck¬ 
anschluß ausgerüstet ist, 
erfüllt im allgemeinen 
diese'Bedingung. Fassen 
wir also nochmal zusam¬ 
men: Wichtig ist ein 40 
Spur (je Seite)-Laufwerk. 
Die Wahl, ob einseitig 
oder doppelseitig, ist 
mehr eine Frage des Prei¬ 
ses. Ein weiterer wichti¬ 
ger Punkt ist die Positio¬ 
nierungszeit bei einem 
Spurwechsel Sie sollte 
beim gewählten Laufwerk 
bei 15 Millisekunden 
oder weniger liegen. Ge¬ 
eignete Diskettenlaufwer¬ 
ke gibt es unter anderem 
von den Herstellern 
ALPS, BASF, MPl, 
Shugart, TEACund 
Toshiba, um nur einige 
zu nennen. 

40-Spur-Laufwerke sind 
also das richtige für die 
Disk-Controller. Nun 
gibt es aber für den TI- 
Controller auch geänder¬ 
te Betriebssysteme, bei 
denen auch 80-Spur- 
Lauf werke angeschlossen 
werden können. Hier 
geben dann aber die Ver¬ 
triebsfirmen dieser Be¬ 
triebssysteme Auskunft 
über die geeigneten v 
Laufwerke. Laufwerke 
mit 17 Spuren sind aber 
in keinem Fall für den 
TI 99/4A geeignet. . 

Der Anschluß der Lauf¬ 
werke erfolgt parallel 
an den Disk-Controller. 

Je nach Controller kön¬ 
nen maximal 3 oder 4 
Laufwerke angeschlos¬ 
sen werden. Je mehr Lauf¬ 
werke angeschlossen wer¬ 
den, desto mehr Speicher¬ 
platz auf den Disketten 
steht ohne Diskettenwech¬ 
sel zur Verfügung. Die 
Anzahl der Laufwerke, 
die Sie Ihrem TI 99[4A 
spendieren wollen, ist 
also eine Frage der Be¬ 
quemlichkeit, der zu ver¬ 
arbeitenden Datenmen¬ 
gen und schlußendlich ei¬ 
ne Frage der Finanzen. 

Zu beachten ist noch, daß 
jedes Laufwerk auch noch 
eine Stromversorgung von 


5 V und 12V benötigt, 
die im Preis meist nicht 
enthalten ist. 

Bleibt noch die Frage 
nach der Lebensdauer 
von Disk-Laufwerken. Die 
in den Datenblättern an¬ 
gegebene mittlere Lebens¬ 
dauer bezieht sich auf ei¬ 
ne professionelle B'etriebs- 
zeit. Beim Einsatz mit 
Heimcomputern wird die¬ 
se üblicherweise nicht 
täglich erreicht, und so 
liegt die Lebenserwartung 
durchaus höher. Ganz ab¬ 
gesehen davon, daß natür¬ 
lich ein Laufwerk, wie 
jedes andere technische 
Produkt, einem gewissen 
Verschleiß unterliegt und 
derjenige, der es richtig 
pflegt, mit einer höheren 
Lebensdauer rechnen 
kann als jemand, der un¬ 
pfleglich mit ihm umgeht. 


UHRPROGRAMM AUCH 
OHNE SPEICHER¬ 
ERWEITERUNG? 


Da nun einige Ausgaben 
der TI-REVUE auf dem 
Markt sind, möchte ich 
folgende Fragen an Sie 
stellen: 

1. Im Heft Nr. 2 stellt Ihr 
ein Listing für eine Uhr 
im TI 99/4A vor. Für die 
Ausführung wird lediglich 
das Mini-Memory oder 
Ext.-Basic mit 32K Spei- . 
chererweiterung benötigt. 
Nun möchte ich wissen, 
ob es auch ähnliche Pro¬ 
gramme für das Extended 
Basic ohne Speicherer¬ 
weiterung gibt? 

2. Als ich das Heft Nr. 3 
erhielt, tippte ich das 
Listing für den Kletter¬ 
max ein. Doch obwohl es 
erst so aussah als würde 
es funktionieren, bemerk¬ 
te ich, daß sich das Männ¬ 
chen zwar nach rechts 
und links, doch nicht 
nach oben und unten be¬ 
wegen ließ. Ist in Ihre ab¬ 
gedruckten Listing ein 
Fehler? 

3. Ich habe mit einigen 
Freunden einen Amateur- 
Video-Film gedreht und 
wollte nun wissen, ob man 
nicht mit dem TI 99/4A 
Schrifteinblendungen vor¬ 
nehmen kann. Vielleicht 
wissen Sie, was ich dazu 
brauche, um Bild und 
Computer-Darstellung 
gleichzeitig auf dem Fern¬ 


seher erscheinen und mit 
dem Video-Recorder auf¬ 
nehmen zu können. 

Frank Hartlage 
4650 Gelsenkirchen 

Da ein Uhrenprogramm 
immer einen Zähler auf 0 
setzen muß, welches mit 
dem Befehl CALL LOAD 
geschieht, ist eine Spei¬ 
chererweiterung beim Ex¬ 
tended Basic leider un¬ 
umgänglich. CALL 
LOAD funktioniert nur 
mit der Speichererweite¬ 
rung. 

In der Erklärung zum 
Spiel Klettermax hat sich 
ein Fehler eingeschlichen. 
Benutzen Sie die Tasten 
C und F, um das Männ¬ 
chen hoch und runter zu 
bewegen. 

Bei Ihrer Frage zum Video- 
Film ist die Redaktion 
überfragt. 

Wenn einer der Leser hier 
schon Erfahrungen ge¬ 
sammelt hat, so möchte 
er es uns bitte schreiben. 


32K-SPEICHERER- 
WEITERUNG DEFEKT! 


Endlich ist sie da, die 
langersehnte 4. Ausgabe. 
Trotz aller Probleme 
(„Tagebuch“), wieder ein 
gelungenes Werk! 

— Zum Artikel Floppy: 

Ich habe ein Siemens-Lauf¬ 
werk (550,— DM mit Zu¬ 
behör) und es arbeitet 

100%ig richtig. 

— Wenn ich meine 32K- 
Ram in der P-Box habe, 
wirft mein TI mit Modu¬ 
len, die dieses Ram be¬ 
nutzen, einige Speicher¬ 
plätze nach ca. 40 Minu¬ 
ten durcheinander. Rei¬ 
nigen und Port auswech¬ 
seln habe ich schon pro¬ 
biert. Ein sofortiger Neu¬ 
start funktioniert nur, 
wenn ich die 32K-Ram 


entfernt habe und ohne 
diese arbeite — wer kann 
helfen? 

— TI-Assembler ja, aber 
wie erlernt man das? 

Gibt es Bücher darüber? 
Bernhard Betz 
5000 Köln 21 

Ihre Bemerkungen zu dem 
Siemens-Laufwerk wer¬ 
den sicher einigen unserer 
Leser helfen. (Siehe hier 
auch die Beantwortung 
eines anderen B rief es.) 

Bei der 32K-Speicherer- 
weiterung wird es schon 
schwieriger. Da häufig 
Anfragen nach den Repa¬ 
raturmöglichkeiten der 
Original- Ti- Teile kom m en, 
hier einmal grundsätzlich 
die Bemerkung, daß diese 
Teile nur von Texas In¬ 
struments repariert wer¬ 
den. Wenn Sie zur Selbst¬ 
hilfe greifen wollen, was 
nur erfahrene Elektronik- 
Bastler tun sollten, so 
sollten Sie erst einmal ge¬ 
nau eruieren, welche Spei¬ 
cherstellen wie durchein¬ 
ander geworfen werden. 
Dies kann man mit dem 
Debugger des Editor-As¬ 
sembler machen. 
Vorausgesetzt, er läßt sich 
noch betreiben, da er ja 
als Maschinenprogramm 
in eben diese Ramerweite- 
rung geladen wird. Da Ihr 
Fehler nur nach einer ge¬ 
wissen Zeit auf tritt, kann 
es auch sein, daß sich ein 
Bauteil übermäßig er¬ 
wärmt, dieses wäre dann 
defekt. Da zur Adressen¬ 
dekodierung in allen TI- 
Karten für die P-Box be¬ 
sonders programmierte 
Bausteine eingesetzt wer¬ 
den (sog. PAL’s) ist eine 
Reparatur, wenn dieser 
PAL defekt ist, nur bei TI 
möglich. Assembler 
können Eie mit der TI¬ 
RE VUE lernen, den ersten 
Bericht lesen Sie in diesem 
Heft. 


UNSER 

S TELEFONSERVICE S 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 

dieser Seite _ _ 

ACHTUNG!!! 

Ab sofort steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Diensta g von 15 bis 
19 Uhr. Für technische Fra g en: 0731/33 22 0 und 
für Listings/Programme: 089/286036. 
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Was da fehlt? Jedes Grom besitzt 
zur Adressierung der gewünschten 
Speicherstelle einen internen Zähler, 
der über die Datenleitungen gesetzt 
werden kann, der automatisch bei 
jedem Lesen von Daten um 1 weiter¬ 
zählt,und dessen Stand auch wieder 
ausgelesen werden kann. Und eben 
dieses Auslesen der Adresse fehlte. 

Ja, da dies funktioniert, bleibt nur 
als Erklärung, daß aus den intern 
im TI 99/4A enthaltenen drei 
GROM’s die Adresse (auch eine, 
bei der sie normalerweise nicht an¬ 
sprechen) ausgeben. 

Dieses Fehlen des Lesens der Adres¬ 
se machte die Schaltung viel ein¬ 
facher und so konnte nun eine Pla¬ 
tine für den Modulport entwickelt 
werden, die den dort zur Verfügung 
stehenden GROM- und ROM-Be- 
reich abdeckt. Dabei wurde die 
Größe so gewählt, daß sie in die 
üblichen Modulgehäuse paßt. 

DIE SCHALTUNG: _ 

Der ROM-Bereich am Modulport 
reicht von >6000 bis >8000, um¬ 
faßt also insgesamt 8KByte, in dem 
Assembler-Programme abgelegt sind. 
Hierfür wurde auf der Platine ein 
2764 Eprom vorgesehen, wobei 
auch ohne Änderung bei kleinen 
Programmen ein 2732 eingesetzt 
werden kann. Zusätzlich sind mit 
der zweiten Hälfte des 74LS139 
die Adressen noch auf 2KByte 
Blöcke dekodiert, für Eigenkon¬ 
struktionen. 

Der GROM-Bereich umfaßt die 
Grom-Adresse >6000 bis >FFFF. 
Zuerst ist für die Groms aber erst 
einmal ein Zähler aus 4 Stück 
74LS161 vorhanden. Diese sind 
in der Zählerfunktion als ganz nor¬ 
maler 16Bit-Binärzähler geschaltet. 
Wird die Leitung GLA Low, d.h. 
aktiv (über die zweite Hälfte des 
74LS139 aus den Signalen GS, 

DBIN und Al4 dekodiert), über¬ 
nehmen die oberen 8 Bits des Zäh¬ 
lers den Stand der unteren 8 Bits 
und die unteren 8 Bits werden mit 
dem Wert auf den Datenleitungen 
geladen. Die Leitung GC’LK wird 
bei jedem Lesezugriff aktiv und 
incrementiert den Adressenzähler. 
Die Ausgänge des Adressenzählers 
dienen als Adressenleitungen für 
ein bis 5 Eproms 2764. Dabei wird 
die Dekodierung in 8KByte-Blöcke 
von einem 74LS138 vorgenommen. 
Auf der Platine verdrahtet ist aber 


Platinenlayout Oberseite: 



Platinenlayout Unterseite (Lötseite): 
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BESTÜCKUNGSPLAN: 

Stückliste: 

IC1,IC2 2764 

IC3-10 74LS00, 74LS02, 74LS138, 

74LS139 und 4x74LS161 
R 150 Ohm 

C 47uF Tantal 6,3 V 
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TIPS & TRICKS 


nur das GROM mit der Adresse 
>6000 bzw. mit geringfügigen Än¬ 
derungen ist auch ein 27128 für 
GROM >6000 und GROM> 8000 
einzusetzen. 

DIE BESTÜCKUNG: _ 

Die Platine muß doppelseitig, am 
besten mit durchverkupferteri Boh¬ 
rungen, hergestellt werden. Die Seite 
mit dem Schriftzug HM ist dabei die 
untere Lötseite. Die Bestückung 
geht aus dem Plan hervor, so daß 
hier keine weiteren Ausführungen 
notwendig sind. Soll im GROM ein 
27128 eingesetzt werden, so sind 
die im Schaltbild gestrichelt einge¬ 
zeichneten Leiterbahnen zu verbin¬ 
den bzw. aufzutrennen, d.h. die 
vom 74LS138 am Pin 12 abgehen¬ 
de Leitung und die Verbindung zwi¬ 
schen Pin 26 und 27 wird aufge¬ 
trennt. Die direkt an Pin 26 des 
Eprom führende Leitung wird mit 
etwas Lötzinn mit dem Pin 26 ver¬ 
bunden und die Bohrung neben 
Pin 15 des 74LS138 wird mit der 
Leitung zu den Pins 20 und 22 des 
Eproms verbunden. Sollen noch 
weitere Eproms auf den Grom- 
Adressen >A000, >C000 und 
>E000 eingebaut werden, so sind 
sie auf dem 27128 zu stapeln, d.h. 
das Eprom wird einfach aufgesetzt 
und alle Pins werden verlötet, au¬ 
ßer Pin 20 und 22. Diese werden an 
jedem einzelnen Eprom verbunden 
und dann zu dem entsprechenden 
Ausgang des 74LS138 gelegt, also 
den im Schaltbild mit GSA, GSC 
und GSE bezeichneten Punkten. 

DIE ANWENDUNG: 

In den ROM-Bereich können eigen¬ 
ständige Assemblerprogramme ge¬ 
legt werden. Dabei ist natürlich zu 
beachten, daß keinerlei der sonst 
vorhandenen Hilfsroutinen wie 
KSCAN, VMBW, VSBW usw. vor¬ 
handen sind. Auch muß der kom¬ 
plette Bildschirmaufbau mit dem 
Laden der Charaktertafeln usw. 
selbst vorgenommen werden. Der 
Einsprung vom Titelbild ist 
bei nahezu allen in Deutschland 
(außer den Konsolen, die sich im 
Titelbild mit (c) 1983 melden) 
möglich. Dazu muß folgender Kopf 
gesetzt werden: 

AORG> 6000 

DATA> AA01 Kopf und Version 
DATA >0100 Anzahl Programme 


DATA >0000 (Power-up Routine) 
DATA PRGLNK Programm-Link 
DATA >0000 (DSR-Link 
DATA >0000 (Unterprogramm-Link) 
DATA >0000 (Interrupt-Link) 

PRGLNK DATA PRGLK2 (0 wenn 
kein 2. Programm) 

DATA ENTRY (Ein¬ 
sprungadresse) 

BYTE 4 (Namenslänge) 
TEXT “TEST“ (Name) 

Die im Kopf in Klammern angege¬ 
benen Zeiger zu weiteren Listen 
sind im ROM des Modulportes nicht 
verwendbar, aber im GROM und 
auch bei den DSR-Routinen (z.B: 
Disk-Controller) wird genau der 
gleiche Kopf benutzt. Womit wir 
beim GROM sind. In diesem Be¬ 
reich können eigene GPL-Program- 
me gelegt werden, was ja jetzt, da 
die Geheimnisse um diese Program¬ 
miersprache gelüftet sind, möglich 
geworden ist. Erfolgt der Einsprung 
auf das Programm über das simulier¬ 


te GROM, so ist das Programm auf 
jeder Konsole zu betreiben. 

Diese Platine ermöglicht nun wirk¬ 
lich neue Programmentwicklungen 
für den TI 99/4A, die auf der glei¬ 
chen Linie wie die originalen TI- 
Module liegen, ohne daß man wei¬ 
terhin auf besondere Bauteile des 
ehemaligen Herstellers angewiesen 
ist. Ein erstes, neues GPL-Programm 
für diese Platine ist derzeit auch 
schon in Arbeit, es wandelt LIST- 
Dateien im Format Variable 80 
wieder zurück in lauffähige Pro¬ 
gramme. Man könnte ja auch ein 
Programm zur Umwandlung des 
Basiccode in TI-Basic schreiben. 

Ein weiterer Anwendungszweck die¬ 
ser Platine sei der Fantasie jedes 
einzelnen überlassen. Eine gewisse 
Nachfrage vorausgesetzt, bin ich 
gerne bereit, durchverkupferte Pla¬ 
tinen herstellen zu lassen, allerdings 
müßte der Vertrieb dann aus Grün¬ 
den des Aufwandes über einen 
Fachhändler erfolgen. 

Heiner Martin 


HeGa-Soft 

Software, Hardware und Literatur 
Postfach 1201 8044 Lohhof 

t'J e i_a N e* u. 

“TI I r» t r- n 

von Heiner Martin 
JD M 38 ,- 



Heiner Martin 

Das Betriebssystem des 
TI 99/4A intern 
Kommentiertes ROM- und 
GROM-Listing mit Hinweisen zu GPL 


m 


Verlag für Technik und Handwerk GmbH 
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SERVICE 


ASSEMBLER 
LEICHT 
GEMACHT 
FÜR DEN 
TI 99/4 A 

Heute und in den nächsten Folgen wollen wir 
ein bißchen näher auf das Thema Maschincr spräche 
mit dem TI 99/4A eingehen. 

Dabei sollen nicht nur das Editor/Assembler Modul, 
sondern auch die Module Extended Basic und 
Mini-Memory angesprochen werden. 

Beginnen wollen wir ganz einfach, aber am Schluß 
jedes Beitrages sollen auch für die Könner einige 
spezielle Tricks verraten werden. 


Was brauchen wir, um mit 
Assembler arbeiten zu 
können? Auf jeden Fall 
eines der eben schon an¬ 
gesprochenen Module, wo¬ 
bei hier das neue Extended 
Basic II plus zum Extended 
Basic zählt, auch wenn es 
eine besonders nützliche 
Routine zum Abspeichern 
von Assembler Program¬ 
men auf Kassette besitzt, 
ähnlich wie das Mini- 
Memory. 

DAS MINI-MEMORY: 

Mit diesem Modul kann 
man allein mit der Kon¬ 
sole zusammen schon in 
Maschinensprache (As¬ 
sembler) programmieren. 
Eine eventuell vorhande¬ 
ne Speichererweiterung 
ist ebenfalls nutzbar. Ein 
Line-by-Line Assembler, 
also ein Programm, wel¬ 
ches die Bildschirmeinga- 
ben in direkt vom 9900- 
Prozessor verwendbaren 
Code umwandelt, gehört 
zum Lieferumfang dieses 


Moduls. Zum Abspeichern 
der Assemblerroutinen 
genügt beim Mini-Memory 
ein Kassettenrekorder, ein 
Abspeichern auf Diskette 
ist nicht möglich, jedoch 
können mit dem Mini- 
Memory vom Editor/ 
Assembler auf Diskette 
erstellte Maschinenpro¬ 
gramme verarbeitet 
werden. 

DAS EXTENDED BASIC: 

Bei diesem Modul ist un¬ 
bedingt eine Speicherer¬ 
weiterung notwendig. 

Das Modul enthält auch 
kein Assembler-Programm, 
welches ebenfalls noch 
benötigt wird, allerdings, 
wurden schon mehrere 
derartige Programme ver¬ 
öffentlicht. Zusammen 
mit einem Diskettenlauf¬ 
werk können vom Editor/ 
Assembler erstellte As¬ 
semblerprogramme be¬ 
nutzt werden. Problema¬ 
tisch ist das Abspeichern 
der mit einem Extended 


Basic Assembler erstellten 
Routinen. Hier sind noch¬ 
mals Hilfsprogramme not¬ 
wendig. 

DER EDITOR/ 
ASSEMBLER: _ 

Er ist ohne Zweifel das 
komfortabelste Modul für 
die Assemblerprogrammie¬ 
rung, verfügt es doch über 
einen Editor, mit dem der 
Quellcode deutlich lesbar 
erstellt wird. Dieser Quell¬ 
code wird von einem As¬ 
sembler, der auch einen 
kompletten Ausdruck auf 
einem Drucker erlaubt, in 
den Objektcode umgewan¬ 
delt, welcher dann wieder 
zum Abarbeiten geladen 
wird. Allerdings erfordert 
dieses Modul auch die 
größte Ausrüstung: Spei¬ 
chererweiterung und Dis¬ 
kettenlaufwerk. 

GRUNDSÄTZLICHES 

Beim TI 99/4A wird As¬ 
sembler nicht mit dem 
„Hammer programmiert“ 
wie bei vielen anderen 
Computern dieser Klasse. 
Ursprünglich dachte 
Texas Instruments wohl 
nur an den Editor/ 
Assembler, und hier ist 
. das erstellte Maschinen¬ 
programm so richtig kom¬ 
fortabel: Eine relative 
Adressierung ist möglich, 
d.h. der Benutzer muß 
sich nicht um den beleg¬ 
ten Speicherplatz küm¬ 
mern, sondern das besorgt 
das Programm, welches 
den Objektcode einfach 
in einen freien Speicher¬ 
bereich lädt und alle not¬ 
wendigen Adressen dabei 
umrechnet. Der Aufruf 
des Programms (LINK) 
erfolgt nun auch nicht 
über irgendeine System¬ 
adresse, die man sich per¬ 
manent merken muß, 
sondern über einen Na¬ 
men, der bis zu 6 Stellen 
lang sein darf und der in 
einer gesonderten Tabelle 
zusammen mit der dazu¬ 
gehörigen Einsprungadres¬ 
se abgelegt ist. Diese Be¬ 
nutzerfreundlichkeit be¬ 
darf aber nun einiger 
Übersicht bei direkter 
Assemblierung, wie es mit 
dem Line-by-Line Assemb¬ 
ler des Mini-Memorys und 
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mit fast allen Extended- 
Basic Assemblern ge¬ 
schieht. 

DIE LITERATUR _ 

Unabdingbar notwendig 
zum Programmieren des 
TI 99/4A in Assembler 
ist das Handbuch zum 
Editor/Assembler. Dies 
ist in Englisch geschrie¬ 
ben, es gibt davon aber 
auch eine zwar nicht als 
exzellent zu bezeichnen- ' 
de, aber doch hilfreiche 
Übersetzung ins Deutsche 
für diejenigen, die des 
Englischen nicht sehr 
mächtig sind. Eine weite¬ 
re, sehr gute Lektüre 
zum Thema 9900 Assemb¬ 
ler gibt es leider nicht 
mehr: Das 16 Bit Micro- 
prozessor Kursbuch von 
Texas Instruments. Eben¬ 
falls sehr wichtig ist na¬ 
türlich die Anleitung zum 
jeweils verwendeten 
Assembler (bei Extended 
Basic und Mini-Memory. 

DAS ERSTE 

P ROGRAMM _ 

Aller Anfang ist schwer, 
besonders bei der Pro¬ 
grammierung in Maschi¬ 
nensprache. Zwei der we¬ 
sentlichen Schwierigkei¬ 
ten mit Assembler wol¬ 
len wir gleich zu Anfang 
behandeln: Der Einsprung 
auf das Programm und das 
Darstellen eines Zeichens 
auf dem Bildschirm. Fol¬ 
gendes Programm soll als 
Beispiel dienen: 



DEF 

START 


REF 

VSBW 

MYWS 

BSS 

32 

START 

LWPI 

MYWS 


LI 

0,>0190 


LI 

1,>4100 


BLWP 

§VSBW 

ENDLOS LI Ml 

2 


LI Ml 

0 


JMP 

ENDLOS 


END 



Dieses Programm für das 
Editor/Assembler Modul 
wird unter dem Namen 
START aufgerufen, das 
beinhaltet die erste Zeile 
mit DEF. REF bedeutet 
Reference und ist eine 
weitere bedienungsfreund¬ 
liche Funktion: Beim La¬ 
den des Programms wird 




SERVICE 


L 


hier die REF/DEF-Tabel- 
le abgesucht, ob der Be¬ 
griff enthalten ist und 
wenn ja, wird der entspre¬ 
chende Wert eingesetzt. 
Dann werden mit BSS 
32 Bytes (16 Worte) fin¬ 
den Workspace (Arbeits¬ 
bereich) des TMS 9900 
reserviert. Dieser Prozes¬ 
sor besitzt ja nicht die 
sonst viel verbreiteten Re¬ 
gister in der CPU, sondern 
benutzt dafür einen Be¬ 
reich im Ram, auf den der 
Workspacecounter zeigt. 
Ab dieser Adresse wer¬ 
den 16 Register (R0 bis 
RI5) benutzt. Als 16-Bit 
Prozessor umfassen diese 
Register natürlich je 2 
Bytes, deshalb der Wert 
32 bzw. >0020. 

Das Programm beginnt da¬ 
mit, daß der Workspace¬ 
counter geladen wird, und 
zwar mit der Anfangsadres¬ 
se des eben reservierten 
Speicherbereiches. Nun 
laden wir die Register R0 
mit der Adresse, in die wir 
in das VDP-Ram schrei¬ 
ben wollen und das höher¬ 
wertige Byte von RI mit 
dem Wert >41, was dem 
ASCII Wert des Buchsta¬ 
bens A entspricht. Mit 
BLWP wird nun ein Unter¬ 
programm aufgerufen. 
Solche Unterprogramme 
stellen alle Module, mit 
denen in Assembler gear¬ 
beitet werden kann, zur 
Verfügung, VSBW ist da¬ 
bei eine Kurzform für 
VDP Single Byte Write, 
was soviel bedeutet wie 
ein Byte in das VDP-Ram 
schreiben. 

Danach wird mit LI MI 2 
der Interrupt freigegeben 
und mit LIMI 0 wieder 
unterbunden. Dies dient 
dazu, daß wir mit der 
Quit-Taste, die ja von der 
Interrupt-Routine abge¬ 
fragt wird, aus der End- 
iosschleife zum Titelbild 
kommen können. Die 
Endlosschleife ist mit dem 
unbedingten Sprungbefehl 
JMP (Jump) realisiert. 
Kommen wir nun zu den 
verschiedenen Assembler. 
Mit dem Editor/Assemb- 
ler erstellen wir mittels 
des Editors die Quellcode- 
Datei und assemblieren 
diese dann mit dem As¬ 
sembler. Dabei sollten wir 


die Dateien schon vom 
Namen her deutlich kenn¬ 
zeichnen, z.B. mit 
DSK1TESTQ (für Quell¬ 
code) und DSK1TESTC 
(für Objektcode). Bei 
der Abfrage OPTIONS 
des Assemblers geben wir 
RC oder nur R ein. Wird 
das C gewählt, wird ein 
sogenannter compressed 
Code erstellt, dieser kann 
vom Extended-Basic- 
Modul nicht geladen wer¬ 
den. Danach wählen wir 
den Abschnitt LOAD 
AND RUN, tippen DSK1. 
TESTC ein und starten 
das Programm über den 
Namen START. 

Nun haben wir aber einen 
einfachen Assembler in 
Extended-Basic geschrie¬ 
ben oder den des Mini- 
Memorys. Hier sind ein 
paar Einschränkungen zu 
machen: DEF, REF und 
BSS sind meist nicht vor¬ 
handen. Wir beginnen al¬ 
so an einer freien Speicher¬ 
stelle, merken uns die 
Adresse (z.B. >7000 für 
das Mini-Memory 
Adresse (z.B. >2500 
unter X-Basic oder 
>7000 für das Mini-Me¬ 
mory) und springen 32 
Bytes höher, d.h. auf 
>2500 bzw. >7D20. 
nun beginnen wir mit 
dem Programm: 

LWPI >2500 O7D00) 

LI R0, >0190 

LI RI, >4100 

BLWP §>2020 06024) 

LIMI 2 
LIMI 0 

JMP >2530 (>7D30) 

END 

Die Werte in Klammern 
gelten für das Mini- 
Memory. Wir haben also 
für den Aufruf des Unter¬ 
programms eine feste 
Adresse eingegeben und 
dies ebenfalls beim Wert 
für den Sprung getan. 

Hier mußten wir uns wäh¬ 
rend des Programmierens 
merken, auf welche Adres¬ 
se wir springen wollten. 
Weiter haben wir uns die 
Adresse des Programmbe¬ 
ginns (>2520 bzw. 

>7D20) und der ersten 
freien Adresse hinter dem 
Programm gemerkt 
(>253A bzw. >7D3A); 


Jetzt können wir aber das 
Programm noch nicht auf- 
rufen und so müssen wir 
die dafür notwendigen 
Zeiger noch entsprechend 
laden. 

Zuerst müssen wir das 
Programm gegen Über¬ 
schreiben schützen und 
den Zeiger auf den Be¬ 
ginn des freien Rams la¬ 
den. Beim Extended 
Basic ist die Adresse 
>2002 mit >253A und 
beim'Mini-Mem ist die 
Speicherzelle >701C mit 
>7D3A zu laden. Am 
einfachsten geschieht dies 
auch mit dem Line-by- 
Line Assembler mit 
AORG>2002 O701C 
für Mini-Mem) und dann 
DATA >2536 (>7D36). 
Nun müssen wir noch die 
DEFinitionstabelle und 
den Zeiger darauf laden. 
Unter Extended-Basic ist 
dies die Speicherstelle 
>2004 O70IE für Mini- 
Mem). Von dem Wert, 
der bisher in dieser 
Speicherstelle steht, zie¬ 
hen wir 8 ab und geben 
diesen Wert dann ein, 
also z.B.> 3FF8 bei Ex¬ 
tended Basic oder>7FF8 
bei Mini-Mem. Die letzte 
Stelle dieses Zeigers ist 
immer eine 8 oder eine 0. 
Dann gehen wir an die 
Adresse, deren Wert wir 
gerade eingegeben haben 
mit z.B. AORG> 3FF8 
(>7FF8) und nun wird 
es kompliziert. Jetzt müs¬ 
sen wir mittels DATA den 

Namen in ASCII eingeben. 
Bei dem Namen Start 
ergibt sich >5354, >4152, 
>5420. Bitte beachten, 
der Name ist immer 6 
Stellen lang, notfalls mit 
>20 (entspricht dem Leer¬ 
zeichen) füllen. Darauf . 
folgt nun die Startadresse 
des Programms also >2520 
bzw.> 7D20 beim Mini- 
Mem. 

Jetzt können wir das Pro¬ 
gramm mit dem Namen 
aufrufen und ausführen. 

In Extended Basic bzw. 
im Basic geschieht dies 
mittels CALL LINK 
(“START“). Jetzt funk¬ 
tioniert das Programm 
über LOAD AND RUN 
des Mini-Mems und des 
Assembler-Moduls ein¬ 
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wandfrei, wir sehen das A 
deutlich auf dem Bild¬ 
schirm, aber aus dem 
Basic oder Extended 
Basic aufgerufen, sehen 
wir gar nichts. Das liegt 
an einer Eigenheit, wie * 
im Basic der Bildschirm 
.aufgebaut ist: Hier sind 
alle Zeichen mit einem 
Offset von> 60 abgebildet. 
Soll das Programm also 
unter Basic arbeiten, muß 
die entsprechende Zeile 
heißen: 

LI R1,>A100 
Das war es dann erst ein¬ 
mal für heute. Übrigens 
könnt Ihr mir auch gerne 
schreiben, wenn Ihr ganz 
besondere Probleme 
mit der Assembler-Pro¬ 
grammierung habt, aber 
bitte nicht zur Fehler¬ 
suche in 20KByte langen 
Programmen! Auf die 
Anwendungs des De¬ 
buggers werden wir hier 
auch noch eingehen. 

FÜR EXPERTEN _ 

Bleibt noch unser Tip für 
die Assembler-Könner 
unter Euch: Im Betriebs¬ 
system der RS232-Karte 
steckt eine Interrupt- 
Routine, die ein inter¬ 
ruptgesteuertes Empfan¬ 
gen von Zeichen erlaubt. 
Dazu müssen folgende 
Pointer gesetzt werden: 
Auf> 8300 befindet sich 
der Pointer zum PAB- 
Buffer im VDP, auf> 8302 
(Byte) die maximale Da¬ 
tensatzlänge, auf> 8303 
(Byte) die Länge des zu 
empfangenden Datensatzes 
und auf >8304 (Byte) die 
aktuelle Länge des Daten¬ 
satzes. Im Falle eines Emp- 
fangserrors ist das letzte 
empfangene Zeichen> FF. 
Hat der Datensatz die auf 
>8303 angegebene Länge 
erreicht, wird als empfan¬ 
genes Zeichen > FE in den 
PAB Buffer geschrieben. 
Um das Ganze zu aktivie¬ 
ren, wird ganz normal ei¬ 
ne Datei eröffnet, nur mit 
dem Unterschied, daß in 
der PAB beim OP-Code 
das 1. Bit (MSB) gesetzt 
werden muß, also z.B. 80 
für OPEN. Benötigt wird 
das zum Beispiel für Ter¬ 
minal Emulator Program¬ 
me. Heiner Martin 
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PHYSIK 

Dieses Programm beinhaltet eine umfangreiche For¬ 
melsammlung aus vielen Bereichen der Physik. 
Verschiedenartige physikalische Probleme werden 
miteinander verknüpft, so daß sich komplette Auf¬ 
gaben lösen lassen. Die nach abgeschlossener Berech¬ 
nung erscheinenden Merksätze dienen vorwiegend 
der Unterstützung, um auch bei anderen Aufgaben 
den richtigen Ansatz zu finden. 

Die zur Wahl stehenden Themen sind unter 
anderem: 

Geschwindigkeit, Beschleunigung, geradlinige Be¬ 
wegung, freier Fall, waagrechter Wurf, schräger 
Wurf, Kraft und Masse, schiefe Ebene, Reibung, 
Arbeit, Energie und Leistung, Dreh- und Kreisel¬ 
bewegung, Fliehkraft, Gravitation, Fallbeschleuni¬ 
gung, Satellitengeschwindigkeit, Faden- und Feder¬ 
pendel. 

Wird das Programm gestartet, erscheint zunächst 
ein Animationsbild. Durch Drücken einer beliebi¬ 
gen Taste folgt das Titelbild. Ein weiterer Tasten¬ 
druck führt zum Hauptmenü. Von nun an kommen 
Sie durch Eingabe der Kennziffer und “ENTER“ 
in die einzelnen Unterprogramme und auf dem 
gleichen Weg von dort aus zu den gewünschten 
Berechnungen. Rudolf Trumbach 


Programm: Physik 

Autor: Rudolf Trumbach, Mauritius¬ 

straße 4a, 4630 Bochum 1 
Kategorie: Lernprogramm 

& Anwenderprogramm 
Sprache: Ext.-Basic 

Ben. Zubehör: Konsole, XBasic-Modul 

Speicherbelegung: 12965 Bytes 
Optimierung: Gut 

Kurzbeschreibung: Dieses Programm beinhaltet 
eine überaus reichhaltige Formelsammlung aus 
vielen Anwendungsbereichen der Physik. Eine sehr 
gute Benutzerführung macht es auch dem Laien 
möglich, mit diesem Programm zu arbeiten. 
Bemerkung: Der Autor hat, laut eigenen Angaben, 
3 Monate an diesem Programm gearbeitet. Diese 
Zeit war nicht vergeudet, ein professionelles An¬ 
wenderprogramm ist entstanden. Der äußere Rah¬ 
men und der sachliche Inhalt lassen keinerlei Kritik 
zu. Die vielen Formeln brachten uns beim Aus¬ 
testen ganz schön ins Schwitzen. 


BCOPY 

Dieses Unterprogramm können Sie an jedes Haupt¬ 
programm mit der MERGE-Option anbinden. 

Im Hauptprogramm wird es mit ‘CALL BCOPY 4 
aufgerufen und erstellt Ihnen eine Kopie Ihres 
Bildschirmes, vorausgesetzt, Sie verfügen über einen 
Seikosha 100A. Nachdem das Hauptprogramm an 
das Unterprogramm abgegeben hat, ertönt ein kur¬ 
zes Signal. Drücken Sie nun die Taste ‘N‘, so be¬ 
kommen Sie einen Ausdruck in normaler Breite. 

Die Taste ‘J‘ weist den Drucker an, den Ausdruck 
in doppelter Breite anzufertigen. Da der Bildschirm 
nur eine Spaltenbreite von 32 Zeichen und der 
Drucker eine Breite von 80 Zeichen darstellen kann, 
wird Ihnen nun durch ein zweites Signal die Mög¬ 
lichkeit geboten, die restlichen, freibleibenden 
Spalten mit einem Zeichen Ilmer Wahl zu füllen. 
Drücken Sie nach dem 2. Signal eine Taste, so wird 
Fortsetzung auf Seite 18 


HO 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
270 
280 
290 
295 

300 ON WARNING NEXT : *. ON BR 
EAK NEXT 

310 CALL CLEAR :: RANDOMIZE 
:: CALL AFARBE(IO,2):: CALL 
HCHAR(24,28,62,2) 

320 DATA 80,72,89,83,73,75,8 
0,72,89,83,73,75,30,72,89,83 
,73,75,80,72,89,83,73,75,80 
330 RESTORE 320 :: FOR Z=2 T 
o 26 :: read a :: call magni 
FY (2) 

340 CALL SPRITE(#Z,A,INT(Z/3 
)+3,92,114,Z*INT(RND*4.5)-2. 
25+Z/2*SGN(RND-.5),Z*INT(RND 
*4.5)-2.25 + Z /2*SGN(RND-.5) ) : 

: CALL SOUND(-50,1500,O) 

350 IF Z=INT(RND*27 >+Z THEN 
CALL MAGNIFY(l):: CALL SOUND 
(- 100, 1400,0, 1900,O, 1600,0) 
360 CALL KEY(O,K,ST):: IF ST 
<>0 THEN 410 
370 NEXT Z :: GOTO 330 
380 ! 

390 ! TITELBILD+CHAR 

400 ! 

410 CALL CLEAR :: CALL DELSP 
RITE(ttl):: CALL BFARBE(1,2) Z 
: für z=i to 3 :: call hchar 

(Z,3,42,28):: NEXT Z 
420 CALL MAGMIFY(4)!I CALL S 
OUND(-5,110,0,120,0,115,0) 
430 FOR Z=22 TO 24 :: CALL H 
char(Z,3,42,28):: next z :: 

CALL VCHAR(4,3,42,42):: CALL 
VCHAR(4,29,42,42) 

440 CALL CHAR(96,RPT*("F" , 16 
),97, M O103070F1F3F7FFF M ,98," 
FFFEFCF8F0E0C080”,99,"FF7F3F 
1F0F070301") 


* * 

* PHYSIK * 

* Copyright by * 

* Rudol-f Trumbach * 

* * 

* Bearbeitet vom * 

* Team des * 

* Aktuell Verlages * 

* Muenchen * 

* * 

* Benoetigte Geraete * 

* TI99/4A Konsole * 

* Ext. Basic * 

* * 

* Speicherbelegung * 

* 12965 Bytes * 


********************** 
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450 CALL CHAR<lOO,"80C0E0F0F 
8FCFEFF“,127,"OOOOOOFF",128, 

" FF818181818181FF *,37, "E020E 
080E") 

460 RESTORE 470 :: FOR Z=1 T 
o 29 :: read aa,bb, cc ,dd :: 
CALL VCHAR<AA,BB,CC,DD):: ME 

XT Z 

470 DATA 7,6,96,5,7,7,96,1,9 

,7,96,1,7,8,96,3,7,10,96,5,9 

,11,96,1,7,12,96,5,7,14,96,3 

480 DATA 9,15,96,3,7,16,96,3 

,7,19,96,1,7,20,96,1,7,18,96 

,3,9,19,96,1,9,20,96,1 

490 DATA 10,20,96,2,11,18,96 

,1,11,19,96,1,7,22,96,5,7,24 

,96,5,7,26,97,1,7,27,98,1 

500 DATA 8,25,97,1,8,26,98,1 

,9,25,96,1,10,25,99,1,10,26, 

100,1,11,26,99,1,11,27,100,1 

510 DISPLAY AT<16,6)SIZE(18) 

: " ßM I TßDEMßTIß99ö4Aß M 

520 DISPLAY AT(2,5)SIZE(20): 

"ßTEXASßßlNSTRUMENTSß“ 

530 DISPLAY AT(23,4)SIZE<22) 

: "ß1984ßRUDOLFßTRUMBACHß" :: 

CALL DELSPRITE(ALL):: CALL 
CFARBE(13) 

540 FOR Z=0 TO 30 STEP 3 : : 
CALL SOUND(-lOO,lOOO,Z,1010, 
Z, 990, Z) *. *. NEXT Z 
550 IF PE=9 THEN 570 
560 CALL KEY(0,K,S):: IF SO 
O THEN 610 :: CALL CFARBE(13 
):: CALL SOUND(lOOO,1IO,30): 

: CALL CFARBE ( 2 ) : : GOTO 560 
570 DISPLAY AT(20,6)SIZE(18) 

I"ßAUFßßWIEDERSEHENß" :: FOR 

1=1 TO 3 

580 DISPLAY AT(18,6)SIZE(18) 

- :: for z=i TO 50 :: nex 

T Z 

590 DISPLAY AT(18,6)SIZE(18) 

: " ßßßPROGRAMMENDEßßß" :: CAL 

L SOUND(-lOO,2000,O):: FOR Z 
=1 TO 50 :: NEXT Z 
600 NEXT I :: FOR Z=1 TO lOO 

o :: next z :: call clear :: 

END 

610 M=0 :: G=9.81 :: GK=6.67 

E— 1 1 
620 ! 

630 ! HAUPTMENUE 

640 !§P+ 

650 CALL CLEAR :: CALL AFARB 
E(16,2):: CALL MAGNIFY(2) 


660 RESTORE 670 :: CALL WRIT 
E(1,15,3) 

670 DATA HAUPTMENU,,,1> MECH 
ANIK, ,2 > SCHWINGUNGLEHRE, ,3> 
PROGRAMMENDE 

680 GOSUB 2250 :: ON K GOTO 
730,1950,690,680,680,680,680 
690 PE=9 :: GOTO 410 
700 ! 

710 !WAHL MECHANIKPROGRAMME 

720 ! 

730 RESTORE 740 :: CALL WRIT 
E ( 1 , 15,3 > 

740 DATA MECHANIK,,1> BAHNBE 
WEGUNG,2 > KRAFT U. MASSE,3> 
ARBEIT LI. ENERGIE, 4> DREH- U 
. KREISBEWEGUNG,5> GRAVITATI 
ON,6 > HAUPTMENUE 
750 GOSUB 2250 

760 ON K GOTO 800,840,870,90 
O,930,660,750 
770 ! 

780 ! MECHANIK 1-5 

790 ! 

800 RESTORE 810 :: CALL WRIT 

E(l,15,3):: GOSUB 2250 
810 DATA BAHNBEWEGUNG,,1> GE 
SCHWINDIGKEIT,2> GERADLINIGE 
BEWEGUNG,3> FREIER FALL 
820 DATA 4 > WAAGR. WURF,5> S 
CHRAEGER WURF,6> RUECKSPRUNG 
830 CALL DELSPRITE(ALL):: ON 
K GOTO 1010,1140,1270,1350, 
1400,730,300 

840 RESTORE 850 :: CALL WRIT 
E(l,15,3) 

850 DATA KRAFT U. MASSE>,1> 
GEWICHTSKRAFT,2> HANGABTRIEB 
SKRAFT,3 > NORMALKRAFT,4> REI 
BUNGSZAHL,5 > REIBUNGSKRAFT,6 
> RUECKSPRUNG 

860 GOSUB 2250 :: CALL DELSP 
RITE(ALL):: ON K GOTO 1490,1 
500,1510,1540,1530,730,860 
870 RESTORE 880 :: CALL WRIT 
E(1,15,3) 

880 DATA ARBEIT U. ENERGIE,, 
1> ENERGIEERHALTUNGSSATZ,".. 

.ARBEIT,LAGEENERGIE",”...UND 
BEWEGUNGSENERGIE","...(NUR 
HINWEISE)",,2> RUECKSPRUNG 
890 GOSUB 2250 :: CALL DELSP 
RITE(ALL):: ON K GOTO 1630,7 
30,890,390,890,890,890 
900. RESTORE 910 :: CALL WRIT 

E(1,15,3) 


I» 
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910 DATA DREH- U. KREISBEWEG 
UNG,,1> FREQUENZ,2> UMLAÜFDA 
UER,3 > WINKELGESCHWINDIGKEIT 
,4> BAHNGESCHW.,5> FLIEHKRAF 
T,6 > RUECKSPRUNG 
920 GOSUB 2250 :: CALL DELSP 
RITE(ALL):I ON K GOTO 1710,1 
720,1730,1740,1750,730,920 
930 RESTORE 940 :: CALL AFAR 
BE(16,2):: CALL WRITE(1,15,3 
) 

940 DATA GRAVITATION,,1> GRA 
VITATIONSKRAFT,2 > FALLBESCHL 
EUNI3UNG,3 > ’LOOPINGPROBLEM* 

,4 > SATELLITENGESCHWFU 
ER BAHN U. WINKEL" 

950 DATA 5 > RUECKSPRUNG 
960 GOSUB 2250 

970 CALL DELSPRITE(ALL) : : ON 
K GOTO 1790,1820,1840,1880, 
730,960,960 
980 * 

990 !RECHNEN MECHANIK 1-5 

lOOO ! 

1010 DISPLAY AT(13,3)ERASE A 
LL: "GESCHWINDIGK. =" CALL 

HCHAR(13,20,127,5) 

1020 DISPLAY AT(12,19):"WEG" 
:: DISPLAY AT(14,19):"ZEIT" 
:: DISPLAY AT(22,1)I"<1> GE 
SCHWINDIGKEIT":“<2> WEG":"<3 
> ZEIT" :: GOSUB 2370 
1030 GOSUB 2280 :: ON K GOTO 
1040,1070,1090,1030,1030,10 
30,1030 

1040 GOSUB 2300 :: GOSUB 232 

O . • 

1050 v=s/t : : gosub 2420 
1060 GOSUB 2340 :: IF K*="J" 
THEN 1010 ELSE 800 
1070 GOSUB 2330 '.: GOSUB 232 


O 

1080 

GOTO 

1090 

O 

1 lOO 

GOTO 
1 1 IO 
o : : 


s=v*T : 
1060 

GOSUB 2300 


GOSUB 2430 


GOSUB 233 


t=s/ v : 
1060 

GOSUB 2320 
A = V/T 


GOSUB 2440 


GOSUB 233 


1120 DISPLAY AT(10,1)ERASE A 
LL:"BESCHLEUNIGUNGSMOMENTANW 

ert":"":a;-m/s%":"":"bei gle 

I CHMAESS I G BESCHLEU-":"": "NI 
GTER BEWEGUNG AUS D. STAND" 
1130 GOTO 1190 


1140 RESTORE 1150 :: CALL WR 
ITE(1,15,1):: GOSUB 2370 :: 
GOSUB 2280 

1150 DATA 1> BESCHLEUNIGUNG, 
2 > BESCHLEUNIGUNGSSTRECKE,3> 
GESCHW.NACH ABLAUF D.ZEIT,4 
> GESCHW. NACH ABSOLVIERTER 
BESCHL.-STRECKE, 

1160 DATA 5 > WIE 4. MIT ANFA 
NGSGESCW. ,6 > BREMSZEIT AUF O 
KM/H,7 > BREMSWEG AUF O KM/H 
1170 ON K GOTO 1110,1180,120 
O,1220,1240,1250,1260 
1180 GOSUB 2320 GOSUB 24 1 
o :: s=< a/2)*t*t :: gosub 24 
30 :: DISPLAY AT(13,1):"WENN 
AUS D. STAND""BESCHLEUN 
IGT WIRD" 

1190 GOSUB 2340 :: IF K$<>“J 

" THEN 800 ELSE 1140 
1200 GOSUB 2410 :: GOSUB 232 
o :: v=a*t :: gosub 2420 
1210 DISPLAY AT(15,1):"BESIT 
ZT DAS FAHRZEUG EINE":"":"AN 
FANGSGESCHWINDIGKEIT, IST":" 
":"DIESE NOCH ZU ADDIEREN" : 

: GOTO 1190 

1220 GOSUB 2300 GOSUB 241 
o :: v=sqr(2*a*s>:: gosub 24 
20 

1230 DISPLAY AT(15,1):"NACH" 

; S? "METER" : " " *. " GLE I CHMAESS IG 
ER":"":"BESCHLEUN. AUS DEM S 
TAND" :: GOTO 1190 
1240 GOSUB 2330 :: GOSUB 241 
o :: gosub 2300 :: v=SQR<v*v 
+2*A*S):: gosub 2420 :: goto 
1 190 

1250 GOSUB 2330 :: GOSUB 241 
o :: t=v/a :: gosub 2440 : : 
GOTO 1190 

1260 gosub 2330 :: GOSUB 241 
o :: s=v*v/ (2*A):: gosub 243 
o :: goto 1190 

1270 RESTORE 1280 :: CALL WR 
ITE<1,15,2):: GOSUB 2370 
1280 DATA 1> FALLHOEHE,,2> G 
ESCHWINDIGKEIT NACH,"...DURC 
HFALLEN ETNERBESTIMMTE 
N STRECKE",,3> GESCHW. NACH 
ABLAUF 

1290 DATA "...EINER BESTIMMT 
EN ZEIT" 

1300 GOSUB 2280 :: ON K GOTO 
1310,1340,1330,1300,1300,13 
OO, 1300 
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1310 GOSUB 2320 :: S=(G/2)*T 
*T : *. GOSUB 2430 
1320 GOSUB 2340 :: IF KS="J" 
THEN 1270 ELSE 800 
1330 GOSUB 2320 :: V=6*T :: 

GOSUB 2420 :: GOTO 1320 
1340 GOSUB 2300 :: V=SQR(2*G 
*S) : : gosub 2420 :: goto 132 
o 

1350 GOSUB 2300 :: GOSUB 233 

o :: s=v*sqr((2*S)/g>:: gosu 

B 2430 :: GOSUB 2380 
1360 CALL BFARBE<2, 1 1): : RES 
TORE 1370 :: CALL WRITE(10,2 
2,1):: GOSUB 2450 
1370 DATA DURCHFAELLT EIN KO 
ERPER,SENKRECHT EINE STRECKE 
,ODER WIRD ER VOM GLEICHEN,P 
UNKT AUS WAAGRECHT,"ABGEWORF 
EN,SO IST DIE" 

1380 DATA ZEIT BIS ZUM AUFPR 
ALL,FUER BEIDES GLEICH ! 

1390 GOSUB 2500 :: GOSUB 238 
O :: CALL AFARBE(16,2):: GOT 
O 800 

1400 GOSUB 2330 :: GOSUB 246 
O 

1410 DISPLAY AT(IO, 1) ERASE A 

ll:-i> wurfzeit-: MM :"2> wurf 
weite--3> steighoehe- :: 
GOSUB 2370 

1420 GOSUB 2280 :: ON K GOTO 
1430,1470,1460,1420,1420,14 
20,1420 

1430 T=2*V*SIN<A)/G :: GOSUB 
2440 :: GOSUB 1480 
1440 DISPLAY AT<17,1):"DIE Z 
EIT BIS ZUM HOCHPUNKT-"D 
ER WURFBAHN BETRAEGJ GENAU": 

"":"DIE HAELFTE" 

1450 GOSUB 2340 :: IF K*="J" 
THEN 1400 ELSE 800 
1460 S=V*V*(SIN(A) A 2)/(2*G1: 

: GOSUB 2430 :: GOTO 1450 
1470 S=2*V*V*COS<A)*SIN(A)/G 
:: gosub 2430 :: gosub 1480 
:: goto 1450 

1480 DISPLAY AT(2,1):"VORAUS 
SETZUNG:"ABWURF- UND AU 
FTREFFPUNKT""LIEGEN IN E 
INER WAAGR. EBENEDANN 
IST DAS ERGEBNIS" :: RETURN 
1490 gosub 2400 :: f=m*g :: 
GOTO 1520 

1500 GOSUB 2400 :: GOSUB 246 

o :: f=m*g*sin<A):: goto 1520 


1510 GOSUB 2400 :: GOSUB 246 
O :: F=M*G*COS(A> 

1520 DISPLAY AT<1O,1)ERASE A 
LL:"KRAFT="JFJ"NEWTON" :: GO 
SUB 2380 :: GOTO 840 
1530 GOSUB 2400 :: GOSUB 246 
O :: DISPLAY ERASE ALL:"WIE 
LAUTET DIE REIBUNGSZAHL":"" 

:: input "- wert:":mu :: f=m 
*g*cos(A)*mu :: goto 1520 
1540 RESTORE 1570 :: CALL WR 
ITE(10,20,1) 

1550 DISPLAY AT(22,15):”H":" 
REIBUNGSZAHL="&RPT$ (CHR$<127 
) , 3 ) Ec " ODER T AN ( A ) H :: DISPL 
AY AT(24,15):"B" 

1560 FÜR Z=0 TO 6 :: CALL HC 
HAR(1+Z,lO-Z,96,1+Z):: CALL 
HCHAR(1+Z,lO-Z,97):: NEXT Z 
:: CALL HCHAR<4,5,76):: CALL 
HCHAR (5, 1 1,72) : Z=12 

1570 DATA "BLEIBT EIN KOERPE 
R NOCH GE-", RADE AUF DER SCH 
IEFEN EBENE,"LIEGEN,KANN MAN 
SAGEN,DIE" 

1580 DATA REIBUNGSKRAFT IST 
GLEICH,DER HANGABTRIEBSKRAFT 
.,DARAUS FOLGT : 

1590 CALL HCHAR(8,8,66) : : DI 
SPLAY AT(1,Z):"EINGABE(METER 
)" :: CALL HCHAR(2,14,127,15 

):: Display at(4,Z):"HOEHE:" 

:: DISPLAY AT(6,Z):"BASIS:" 
1600 ACCEPT AT(4,18)VALIDATE 
(NUMERIC)BEEP:H 

1610 ACCEPT AT(6,18)VALIDATE 
(NUMERIC)BEEP:B 

1620 MU=H/B :: DISPLAY AT(23 
,14>beep:mu :: call hchar(22 
,17,127,11):: CALL HCHAR(24, 
17,127,11):: GOSUB 2380 :: G 
OTO 840 

1630 CALL CLEAR :: CALL BFAR 
BE (2,11): : RESTORE 1640 C 
ALL WRITE(9,23,3):: GOSUB 25 
OO 

1640 DATA DIE GROESSE DER EN 
ERGIE,BLEIBT BEI ALLEN UM-,W 
ANDLUNGEN ERHALTEN ! , 

1650 DATA "KRAFT. ..... = M*A" 

, "ARBEIT .....= M*A*S*COS(A) " 

,"LAGEENERGIE= M*G*H","BEWEG 
UNGSE.= 1/2*M*V%" 

1660 GOSUB 2450 :: GOSUB 238 
o :: restore 1670 :: call wr 

ITE(1,23,3):: GOSUB 2380 
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1670 'DATA LIEGT Z.B.,EIN KOE 
RPER, " IN EINER GEWISSEN HOEH 
E, ", BESITZT ER EINE BESTIMMT 
E,LAGEENERGIE. FAELLT ER,"HE 
RUNTER, BLEIBT DIESE" 

1680 DATA "ENERGIE, GENAUSO 
WIE EINE",AN DIESEM KÖERPER 
VER-,"RICHTETE ARBEIT, ALS B 
E-",WEGUNGSENERGIE ERHALTEN. 
1690 DATA DURCH GLEICHSETZEN 
LAESST,SICH ’V’ O. ’H’ BEST 
IMMEN.,(VERGL. AUCH FREIER F 
ALL) - 

1700 CALL AFARBE(16,2) : : GOT 
O 870 

1710 GOSUB 2470 :: GOSUB 232 

o :: n=gu/t :: Display erase 
all:■Frequenz:":-":N:"":"UM 

DREHUNGEN PRO SEK." I: GOTO 
1760 

1720 gosub 2480 :: d=i/n :: 
DISPLAY ERASE ALL:"PERIODEND 

auer:d:"sek. pro umdreh 
UNG" :: GOTO 1760 
1730 GOSUB 2480 :: 0=2*PI*N 

:: DISPLAY ERASE ALL:"WINKEL 
geschw. o;" rad/sek.- :: 
GOTO 1760 

1740 GOSUB 2480 :: GOSUB 230 
o :: v=2*pi*n*s :: Display e 
rase all:"bahngeschw. v 

j"METER/SEK." :: GOTO 1760 

1750 GOSUB 2480 :: GOSUB 230 
o :: gosub 2400 :: f=m*<2*pi 
*N)^2*S :: DISPLAY ERASE ALL 
:"FLIEHKRAFT:"S""!FJ"NEWTON" 
1760 GOSUB 2380 :: GOTO 900 
1770 F=M*V*V/S :: DISPLAY AT 
<19,15):"=";f 

1780 GOSUB 2340 :: IF K«="J" 
THEN 900 ELSE 730 
1790 GOSUB 2400 :: DISPLAY E 
RASE ALL:"DIE ZWEITE MASSE ? 
:: input in kg :":M2 
:: GOSUB 2300 

1800 F=GK*M*M2/<S*S);: DISPL 
AY AT<10,1)ERASE ALL:"DIE KR 
AFT MIT DER SICH DIE""MA 
SSEN ANZIEHEN BETRAEGT":"":F 
5"NEWTON" 

1810 GOSUB 2340 :: IF K*=”J" 
THEN 930 ELSE 730 
1820 GOSUB 2400 :: GOSUB 230 
O 

1830 GF=GK*M/S"'2 :: DISPLAY 
AT( IO, 1)ERASE ALL:"DIE FALLB 
eschl. dieses""himmelsko 

ERPERS BETRAEGT"GF?"M/S% 
" :: goto 1810 


1840 GOSUB 2300 :: V=SQR<G*S 

):: gosub 2420 :: Display at 

(15,1):"MINDESTGESCHWINDIGKE 

it !" :: gosub 2380 :: call 
BFARBE(2,11) 

1850 RESTORE 1870 :: CALL WR 

ite< 10 , 20 , 2 ):: gosub 2450 :: 

GOSUB 2500 :: GOSUB 2380 
1860 CALL AFARBE(16,2):: GOT 
O 930 

1870 DATA DAMIT EIN FAHRZEUG 
NICHT,"AUS DEM LOOPING FAEL 
LT,",MUSS DIE FLIEHKRAFT GLE 
ICH,DER GEWICHTSKRAFT SEIN., 

,MINDESTVORAUSSETZUNG •! 

1880 GOSUB 2400 :: GOSUB 230 
o :: v=sqr(GK*m/S):: o=sqr(G 

K*M/S a 3):: GOSUB 2420 :: DIS 
PLAY AT(15,1):"DIE WINKELGES 

chw.":"": o;"R ad/sek." 

1890 GOSUB 2380 *.: CALL BFAR 

BE(2,11):: RESTORE 1900 :: c 
ALL WRITE(10,16,3):: GOSUB 2 
500 :: GOSUB 2450 
1900 DATA BESCHREIBT EIN KOE 
RPER,"EINE KREISBEWEGUNG, SO 
”,IST DIE ANZIEHUNGSKRAFT,GL 
EICH DER FLIEHKRAFT ! 

1910 GOSUB 2380 :: GOTO 930 
1920 ! 

1930 !MENU SCHWINGUNG 

1940 ! 

1950 RESTORE 1960 :: CALL WR 
ITE ( 1 , 15,'3) 

1960 DATA SCHWINGUNGSLEHRE,, 
,1> FADENPENDEL,,2> FEDERPEN 
DEL, ,3 > HAUPTMENU 
1970 GOSUB 2250 :: CALL DELS 
PRITE(ALL):: ON.K GOTO 1980, 
2010,660,1970,1970,1970,1970 
1980 RESTORE 1990 :: CALL WR 
ITE<5,11,1):: GOSUB 2370 
1990 DATA . 1> DAUER D. EIGENS 
CHWINGUNG,2> FREQUENZ,3> FAD 
EN- O. SEILLAENGE,4 > RUECKSP 
RUNG 

2000 GOSUB 2280 !! ON K GOTO 
2070,2090,21 OQ\ 1950,2000,20 
00,2000 ' 

2010 RESTORE 2020 :: CALL WR 
ITE(1,15,1):: GOSUB 2370 
2020 DATA 1> RICHTGROESSE D. 

FEDER,2> DAUER D. EIGENSCHW 
INGUNG, "... FREQUENZ",3> GESC 
HW. IM O-PUNKT 

2030 DATA 4> SPANNARBEIT =>F 
EDERKONST.,5> FEDERWEG IN VE 
RBINDUNG,"...MIT GELEISTETER 
ENERGIE",6> RUECKSPRUNG 
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2040 GOSUB 2230 ':: 0N K GOTO 
2110,2160,2180,2220,2190,19 
50,2040 
2050 ! 

2060 * RECHNEN SCHWINGUNGEN 
2070 GOSUB 2300 :: D=G 
2080 T=2*PI*SQR(S/D) : : GOSUB 
2440 :: n=i/t :: Display at 
(12,7):"PRO SCHWINGUNG":"":" 
":"=> DIE FREQUENZ:NJ"H 
ERTZ" :: GOSUB 2380 :: GOTO 
1950 

2090 GOSUB 2300 :: N=SQR(G/S 
)/(2*PI):: DISPLAY ERASE ALL 
: "Frequenz: M ; n; "HERTZ" :: go 
SUB 2380 :: GOTO 1980 
2100 GOSUB 2480 :: GOSUB 232 
o :: s= <g*t a 2)/<4*pi*n~2):: 
GOSUB 2430 :: GOSUB 2380 :: 
GOTO 1980 

2110 GOSUB 2400 :: DISPLAY E 

rase all:"was ist bekannt?": 
"”:"1> PERIODENDAUER"2> 
FREQUENZ" 

2120 GOSUB 2280 :: OM K GOTO 
2130,2140,2120,2120,2120,21 
20,2120 

2130 GOSUB 2320 D=4*PI~2* 

M / T2 : : GOTO 2150 
2140 GOSUB 2480 :: D = N*'2*PI'' 
2*4*M 

2150 DISPLAY ERASE ALL:" FEDE 

rkonstante: m :-":d;“newton/me 

TER" :: GOTO 2170 

2160 GOSUB 2400 :: GOSUB 249 

o :: s=M :: goto 2030 

2170 GOSUB 2380 :: GOTO 2010 

2180 GOSUB 2490 :: GOSUB 240 

o :: gosub 2300 :: v=s*<d/M) 
^1/2 :: gosub 2420 :: goto 2 
170 

2190 DISPLAY ERASE ALL:"WELC 
HE ENERGIE""BESITZT DER 

koerper :: input "- ne 

wton*meter:-:e 

2200 GOSUB 2490 :: GOSUB 240 
O :: S= <2*E/D) A l/2 
2210 DISPLAY ERASE ALL:"DIE 
FEDER WIRD UMSi"METER": 

"":"zusammengedrueckt o. ged 

EHNT" :: GOTO 2170 
2220 DISPLAY ERASE ALL:"WELC 
HE ARBEIT WURDE AN":"":"DER 
FEDER VERICHTET " :: INP 

UT "- NEWTON/METER:":W 
2230 GOSUB 2300 :: D=2*W/S : 

: GOTO 2150 
2240 ! 

2250 • UNTERPROGRAMME 


2260 CALL HCHAR<2,5, 127, 26) : 
: DISPLAY AT(20,3):"IHRE WAH 
L : CALL HCHAR<19,5, 127, 

23) 

2270 CALL HCHAR(21,5,127,23) 
:: CALL SPRITE <411, 128,5, 149, 
228) 

2280 ACCEPT AT(20,28)VALIDAT 
E("1234567")BEEP SIZE(1):K 
2290 RETURN 

2300 DISPLAY AT(12,1)ERASE A 
LL:"BITTE STRECKE EINGEBEN": 

ABSTAND":"* HOEHE":"* 
RADIUS":"* DURCHMESSER":"* L 
AENGE":"* USW." 

2310 INPUT IN METER:":S : 

: RETURN 

2320 DISPLAY ERASE ALL : "BITT 
E DIE ZEIT EINGEBEN":"" :: I 
NPUT IN SEKUNDEN :":T 

RETURN 

2330 DISPLAY ERASE ALL:"GESC 
HWINDIGKEITSEINGABE":" u :"* A 
UCH ANFANGSGESCHW. " " :: IN 

PUT "- IN METER/SEK. : M :v :: 
RETURN 

2340 DISPLAY AT(24,3):"NOCH 

EINMAL ?.. <J/N>" 

2350 ACCEPT UALIDATE("NJ")BE 
EP SIZE(1):k* 

2360 RETURN 

2370 DISPLAY AT<19,1)BEEP:"W 
ELCHE KENNZIFFER BITTE : " : : 

CALL HCHAR<20,29, 127,3) : : R 
ETURN 

2380 CALL HCHAR(24,31,62,2) 
2390 CALL KEY(0,K,S):: IF S= 
O THEN 2390 : : CALL CLEAR : : 
RETURN 

2400 DISPLAY ERASE ALL:"BITT 
E DIE MASSE EINGEBEN":"" :: 

input "- in kg :":m :: retur 

*N 

2410 DISPLAY ERASE ALL:"DIE 
BESCHLEUNIGUNG BETRAEGT?": " " 

: "* ODER VERZOEGERUNG" : " " :: 

input "- m/s% :":a :: retur 
N 

2420 VH=V*3.6 :: DISPLAY AT( 
3,1)BEEP ERASE ALL:"DIE GESC 
HWINDIGKEIT BETRAEGT0, 
M/SEK. ..ODER": " ":VH;"KM/H" 

:: RETURN 

2430 DISPLAY AT(8,1)BEEP ERA 
SE ALL:"STRECKE,LAENGE O. HO 
EHE:s;"METER" :: return 
2440 DISPLAY AT<10,1)BEEP ER 
ASE all:"ZEIT:"?T5"SEKUNDEN" 

:: RETURN 
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2450 DISPLAY AT<3,8):"* M E 
R K E *" :: CALL HCHAR(1,1 

0,42,15):: CALL HCHAR(5,10,4 
2,15):: RETURN 

2460 DISPLAY AT(15,1)ERASE A 
LL:"(ABWURF-,NEIGUNGS-) WINK 
el INPUT "- IN GRAD :" 

:wi :: a=wi*pi /180 :: return 
2470 DISPLAY ERASE ALL:"GESA 
MTUMDREHUNGEN ODER":"":"AUCH 
SCHWINGUNGEN?": H " :: INPUT 

"ANZAHL: m :gu :: return 
2480 DISPLAY ERASE ALL:"BITT 
E DIE FREQUENZ EINGEBEN":"" 

:: INPUT UMDREHUNGEN PRO 

SEK.: M :N :: return 
2490 DISPLAY ERASE ALL:"FEDE 
RKONSTANTE ?":"" :: INPUT 

in newton/meter:":d :: retu 
RN 

2500 FOR Z = 0 TO 30 STEP 6 : : 
CALL SOUND(-100,160,Z,180,Z 

,220,z,-7,Z):: NEXT z :: ret 
URN 

2510 SUB BFARBE ( VF , BF )' 

2520 FOR Z=1 TO 12 : I CALL C 
OLOR(Z,VF,l):: NEXT z :: CAL 
L SCREEN(BF) 

2530 SUBEND 

2540 SUB AFARBE<VF,BF) 

2550 FOR Z=2 TO 4 :: CALL CO 
LOR(1,16,1,Z,11,1,12,ii,d:: 

next z :: for z=5 to li :: 
CALL COLOR(Z,VF,1):: NEXT z 
:: CALL SCREEN(BF):: SUBEND 
2560 SUB WRITE(ZI,ZZ,SP) 

2570 CALL CLEAR :: FOR Z=Z1 
TO ZZ STEP 2 :: READ a* :: D 
isplay at(z,sp):a* :: next z 
:: SUBEND 

2580 SUB CFARBE(C):: FOR Z=3^ 
TO 8 :: CALL COLOR(Z,16,7): 

: next z :: call color(2,16, 

5,12,7,7,1,7,1,9,c,1):: SUBE 


ND 



Fortsetzung von Seite 12 

dieses Zeichen dazu verwendet, die Spalten 32 - 80 
auf dem Ausdruck zu füllen. 

Speichern Sie dieses Unterprogramm ab Zeile 
32500 mit ‘MERGE’ ab. Die Zeilen 310 und 320 
dienen nur dazu, das Programm auszutesten und 
brauchen nicht mit übernommen zu werden. 

V. Schirrmann 


Programm: 

Autor 

Kategorie: 

Sprache: 

Ben. Zubehör: 


Speicherbelegung: 
Optimierung: 
Kurzbeschreibung: 
wahlweise Normal- 


BCOPY 

Volker Schirrmann, Düppel¬ 
straße 71, 4200 Oberhausen 1 
Utility 
Ext.-Basic 

Konsole, XBasic-Modu! 

RS232 Schnittstelle 
Seikosha GP100A 
1044 Bytes 
Befriedigend 

Programm für Bildschirmkopie 
oder Breitdruck. 


100 '. ********************** 

HO!* * 

120 ! * Bcopy * 

130 ! * Copyright by * 

140 ! * V. Schirrmann * 

150 ! * * 

160 ! * Bearbeitet vom * 

170'! * Team des * 

180 ! * Aktuell Verlages * 

190 ! * Muenchen * 

200 ! * * 

210 ! * Benoetigte Geraete * 

220 ! * TI99/4A Konsole * 

230 ! * Ext. Basic * 

240 ! * Schnittste11e * 

250 ! * Drucker(GPIOOA) * 

260 ! * * 

270 ! * Speicherbelegung * 

280 ! * 1044 Bytes * 

290 ' ********************** 

295 ! 

300 CALL CLEAR :: FOR N=i TO 
30 :: CALL HCHAR(INT(RND*23 
)+1,INT(RND*31)+1,INT <RND*96 
)432,INT(RND*31)+1):: NEXT N 
310 CALL BCOPY 

32500 SUB BCOPY :: CALL SOUN 
D(-1OO,-3,0) 

32510 CALL KEY(0,K,S>:: IF K 
=74 THEN 32520 ELSE IF K=78 
THEN 32600 ELSE 32510* 

32520 open #i:"Pio" :: A$=RP 


T*(,40):: b$="- 

BILDSCHIRMAUSDRUCK- 

- n :: primt t*i: chr$ (14) ; A«; B 

A^ 

32524 CALL SOUND(-300,-1, O) 

32525 CALL KEY(0,K,S):: IF S 
=0 THEN 32525 :: FUELL=K 
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32530 FOR ZEI = 1 TO 24 :: FOR 
SPA=1 TO 32 

32540 CALL GCHAR(2EI,SPA, 2CH 
) 

32550 PRINT*=PRINT*kCHR* <ZCH 
) : IF SPA=32 THEN 32560 ELS 

E 32520 

32560 PRINT*=PRINT*&RPT*(CHR 
*(FUELL),8):: PRINT 441:PRINT 
* :: PRINT**"" 

32570 HEXT SPA !: NEXT ZEI 
32580 PRINT *4 1 : A* J CHR* ( 10 ) J C 
HR*(10);CHR*(10) 

32590 SUBEXIT 

32600 OPEN 441: "RIO” :: A*=RP 
T*(,80) 

32610 B*="- 

-BILOSCHIRMAUSDR 

UCK- 


Programm: 

Autor: 

Kategorie: 

Sprache: 

Ben. Zubehör: 


Flugtag 

Marcus Gröber, Dresdnerstr. 2 
5090 Leverkusen 
Spiele 
Ext.-Basic 

Konsole, XBasic-Modul 
optional: Speech-Synthesizer 
Joystick (1) 


Speicherbelegung: 12141 Bytes 
Optimierung: Gut 

Kurzbeschreibung: Mit einem Fesselballon sind 
möglichst viele Starts und Landungen fehlerfrei zu 
bewerkstelligen. Eingebaute Schwierigkeiten ma¬ 
chen dies nicht immer einfach. 

Bemerkung: Bei diesem Spiel wurde viel Wert auf 
Details gelegt. Und gerade diese kleinen Details ma¬ 
chen das an sich einfache Programm zu einem lusti¬ 
gen und interessanten Spiel. Verfügt man nicht über 
einen Joystick oder einen Sprach-Synthesizer, ist 
dies für das Spiel fast ohne Bedeutung. Es läßt sich 
genauso gut über die Tastatur steuern. 

In einem Vorprogramm wird festgelegt, welches 
Zubehör man einsetzen möchte. Entscheidet man 
sich für die Tastatur, kann man sich anschließend 
aussuchen, welche Tasten man für die Steuerung 
benutzen möchte. 


32620 PRINT 44 1 : CHR* < 1 5 ) J A* ; B 
*; A* 

32624 CALL SOUND<-300 , - 1 , O ) 

32625 CALL KEY<0,K,S):: IF S 
=-•0 THEN 32625 : : FUELL = K 
32630 FOR ZEI = 1 TO 24 :: FOR 

SPA“1 TO 32 

32640 CALL GCHAR< ZEI ,SPA,ZCH 

) 

32650 PRINT*=PRINT*E-cCHR* (ZCH 
):: IF SP A=32 THEN 32660 ELS 
E 32670 

32660 PRINT*=PRINT*6cRPT* < CHR 
* (FIJELL.) , 43) : : PRINT 44l:PRIN 
T* :: PRINT****" 

32670 NEXT SPA :: NEXT ZEI 
32680 PRINT 441 : A* :: PRINT 44 

l; chr*( io); chr* <io); chr* <io> 
32690 SUBEND 

FLUGTAG 

In einer deutschen Kleinstadt findet ein Wettbe¬ 
werb im Fesselballonfliegen statt. Sieger ist, wer 
die meisten Starts und Landungen fehlerfrei aus¬ 
führen kann. Jeder Teilnehmer darf zwei Reserve¬ 
ballons bereithalten. Landungen werden nur aner¬ 
kannt, wenn sie genau auf dem Startplatz statt¬ 
finden. Der Aufstieg erfolgt durch Ballastabwurf, 
die Landung durch Gasablassen. Die Flugrichtung 
wird durch die verschieden starken Höhenwinde 
beeinflußt. Links und rechts wird das Flugfeld 
mit Fesselballons eingegrenzt. Achten Sie darauf, 
daß Sie nicht in die Leinen dieser Ballons geraten, 
oder mit dem Beobachtungsflugzeug Zusammen¬ 
stößen. In diesen Fällen ist der Flugtag vorzeitig 
beendet. Bemerken Sie rechtzeitig, daß Sie die 
Kontrolle über den Ballon verlieren, können Sie 
sich mit einem Fallschirm retten. Der Ballon geht 
dann zwar verloren, aber Ihr Leben ist gerettet und 
Sie dürfen mit einem Reserveballon weiter am 
Flugtag teilnehmen. Marcus Gröber 


STATISTIK 

Mit diesem Programm erhalten Sie ein nützliches 
Instrument für Ihre statistischen Berechnungen. 
Nachdem Sie im Hauptmenü das gewünschte Teil¬ 
programm eingegeben haben, können Sie im Dialog 
mit dem Rechner Ihre Berechnungen durchführen. 
Auswahl 1 im Menü gibt Ihnen eine Demonstration 
der 3-D Säulengrafik. 

Auswahl 2 bietet Ihnen die Möglichkeit, prozen¬ 
tuale oder reelle Werte für bis zu 6 Säulen einzu¬ 
geben. 

Mit Punkt 3 im Menü berechnen Sie den Mittelwert, 
die Varianz und die Standardabweichung der zuvor 
von Ihnen eingegebenen Werte. 

Im 4. Teil des Menüs werden für Kennzahlen zwi¬ 
schen 0 und 255 die Häufigkeitsverteilung, Summe, 
Quadratsumme, das Mittel, Standardfehler und 
noch einige statistische Berechnungen mehr durch¬ 
geführt. 

Auswahl 5 des Menüs beendet das Programm. 

Udo Wenzel 


Programm: 

Autor: 

Kategorie: 

Sprache 

Ben. Zubehör: 

Speicherbelegung: 

Optimierung: 

Kurzbeschreibung: 


Statistik 

Udo Wenzel, 5090 Lever¬ 
kusen 1, Overfeldweg 76 
A nwenderprogramm 
TI-Basic 
Konsole 
5778 Bytes 
Befriedigend 

Das Programm erstellt Säulen¬ 
diagramme und fuhrt statistische Berechnungen in 
der Art des Datenverwaltungs- und Analysemoduls 
durch. 

Bemerkung: Säulendiagramme gibt es mittlerweile 
fast ebenso viele, wie Pac-Man-Versionen. Dieses 
Programm kann jedoch wesentlich mehr als nur 
Säulen zu erstellen. Mittelwert, Standardabwei¬ 
chung, Standardfehler und Häufigkeitsverteilung 
sind nur ein Teil der Berechnungen, die hier aus¬ 
geführt werden. 

Für jeden, der mit statistischen Berechnungen zu 
tun hat, kann dieses Programm zu einem nützli¬ 
chen Instrument werden. 


X» 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

295 

300 


* 


* 

* 

FLUGTAG 

* 

* 

Copyright by 

* 

* 

Marcus Groeber 

* 

* 


* 

* 

Bearbeitet vom 

* 

* 

Team des 

* 

* 

Aktuell Verlages 

* 

* 

Muenchen 

* 

* 


* 

* 

Benoetigte Geraete 

* 

* 

TI99/4A Konsole 

* 

* 

Ext. Basic 

* 

* 

ÄJoystick(l) opt.ü 

* 

*ÄSprach-Synth. opt. 

ü* 

* 


* 

* 

Speicherbelegung 

* 

* 

12141 Bytes 

* 


********************** 
CALL MAGNI 


CALL CLEAR 

FY (3) 

310 RANDOMIZE :: DIM WI<9) 
320 CALL SCREEN<5):: FOR A=0 
TO 8 :: CALL COLOR(A,2,8):: 

NEXT A 

330 CALL COLOR ( 11,9,8 , 12,13, 
8,13,2,15) 

340 FOR A = 65 TO 90 *. : CALL C 
HARPAT(A+32,A$):: CALL CHAR( 

A , "FF " &SEG* < A*,5, 12)&"FF") : ! 
NEXT A 

350 CALL CHAR(60,"0103050911 
2 14 1 FF",62,RPT*<”80",8) ) 

360 CALL CHAR(96, "00030F1F3F 
333D3D3F1FOFO70302010100C0F0 
F8FCFCECBCBCF8FOEOC0408080") 
370 CALL CHAR (64,“000000EC92 
929292") 

380 FLGL$=”000000000060E0602 
02070FBACDFDF “ &RPTS ( M O “ , 24 ) 8c 
"FF03FFFE ■’ :: CALL CHAR(lGO, 


FLGL*) 

390 FLGR^="00000000003033302 
02070FBACDFDF " 8cRPT^ ( "O" , 24) 8c 
"FF03FFFE" 

400 CALL CHAR(108,"00000080D 
FFF FOF5F 5F7FFCF8000000000000 
OOOF8FC465F5746FCF8EOEO") 

410 CALL CHAR(104,RPT*("O“,2 
O) & "2A1C0A091401 H 6cRPT^ ( "O" , 2 
O) u n 15GEA4C A8040") 

420 CH$="0102040810204080" 
430 FOR A=1 TO 8 :: CALL CHA 
R(111+A,RPT*(SEG*(CH$,A*2-1, 
2),8)):: NEXT A 


440 CALL CHAR(91,"80FOF8DBFB 
737FFF"8cRPT$ ( ”0" , 14 ) 8c M FFO1 OF 
1FDEDFCECEFF00003C133C3C3C7E 
M ) 

450 CALL CHAR(120,RFT*("0",1 
6) 8c*003C7E7E3C18181800183C3C 
7E3C7E18183C7E7E7E3C1S18") 

460 CALL CHAR(124,“OOOOOOOOO 
F95A4FFBF9F0CIC0800000000000 
0000183FFFFFFC7Ö2") 

470 CALL CHAR(128,"0000013DF 
FFFFFFF7F7F2100000000000000C 
OEOF SFCFEFEFEFCF8") 

480 CALL CHAR(132,"60FF00000 
00000F0F00000000060FF") 

490 CALL CHAR(32,RPT*("00",1 
5) 6c" 01 "8cRPT* ( "00" , 16) ) 

500 CALL CHAR(36,"0000000000 
OOOOOOOOO103050F3F3F0C000000 

0C0000000040F8FCBC1CBCFC18") 

510 CALL CHAR(136, "00924AOOO 
0EEA8EC888E00004A92000000495 
200C097D4 B5959700005249") 

520 CALL CHAR(140,RPTS("OO", 
9) 6c"070E0805030102'’ 8<RP T & ( " OO 
",9)^"00602040300030" ) : : GOS 
U3 1370 

530 CALL HCHAR(1, 1, 120,608) : 

: CALL OCHAR (20,3,91 ) *. I CALL 
VCHAR(20,31,93):: FOR A=0 T 
0 3:: CALL COLOR(A,2,4) : : N 
EXT A 

540 CALL SPRITE (4416, 128, 16,3 
,100,0,4,4417, 123, 16,8,30,0,5 
,4418, 123, 16,22, 1 90,0,6,4419, 1 
28,16,3,2,0,7) 

550 CALL HCHAR(22,1,132,32) : 

I CALL HCHAR(23,1,133,32) 

560 x=3 :: c=ll9 :: for y= 19 
TO 7 STEP -2 :: CALL VCHAR( 
Y-l, X, C , 2) : : CALL VCHAR ( Y- l , 
34-x,231-c,2):: c=c-i :: if 
c=111 THEN C=1l9 :: X=X+l 
570 NEXT Y :: CALL SPRITE (443 
, 103,7,30, 14,444, 108,7,30,233 
) ’ ' \ 

500 CALL SPRITE(441, 124,7, 168 
, 235) 

590 FOR X=4 TO 30 : : IF RND< 
.5 THEN CALL OCHAR(19,X,121+ 
INT(RND*3)) 

600 NEXT X :: CALL MOTION(441 
,0,-10) 

610 FOR A=30 TO 14 STEP -1 : 

: CALL SOUND(-999,-3,A):: NE 
XT A 
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620 CALL SOUND(-999,-3,14):: 

CALL POSITION<#l,Y,X):: IF 
X >120 THEN 620 ELSE CALL MOT 
ION(#1,-5,-IO) 

630 CALL SOUND(-999,-3,8) : : 
CALL POSITION(«l,Y,X> : : IF Y 
>18 THEN 630 ELSE CALL MOTIO 
N («1,O,-10) 

640 FOR A=8 TO 30 :: CALL'SO 
UND(-999,-3,A):: NEXT A 
650 HA=INT(RND*50+95):: CALL' 
SPRITE(«IO,lOO,2,153,HA) 

660 FOR A=0 TO 9 :: WI(A)=IN 
T<RND*14-7):! IF WI(A)=0 THE 
N W I ( A ) = 1 

6 70 NEXT A : : GOSUB 2050 : : 
BAL,PE,LA,LU,SC=Q :: SS=15 

680 BAL=BAL +1 :: BCO=BAL*3 

690 L=30 :: CALL SPRITE(«2,9 

6,BCO,150,240,0,-5,«13,104,1 
6, .152,237,0,-5) 

700 CALL POSITION(«2,Y,X) : : 

IF X>HA + 4 THEN CALL SOUND(1 , 
-3,D:: l=40-l :: goto 700 e 
LSE CALL MOT ION(#2,O,O,«13,O 
, -7) 

710 CALL POSITION(«13,Y,X) : : 

IF X >HA-13 THEN CALL SOUND( 
i,-3,L):: l=4o-l :: goto 710 
EL.SE CALL MOTION («13,0,0) 

720 SND*=PPT* SS) : : COL = 

l :: c 02 = bco +1 :: Display at 

(24,1)*. '‘HOCH ZUM START" : : c 
ALL'TALK(VSTARTS) 

730 CALL KEY(0,K,S)I: CALL J 
OYST(1,X,Y):: FOR D=1 TÜ 40 
:: next d :: if y<4 and k<>a 
SC(UP*)THEN CALL COLOR(«2,CO 

L):: col=co2-col :: goto 730 

740 CALL COLOR(«2,BCO) : : YD = 
-1.5 :: DISPLAY AT(24,1)1SND 

tab( iS);" alt.: o% H zz alm= 

o 

750 IF RND >.02 THEN 770 ELSE 
H=INT(RND*10):: WI(H)=INT(R 
ND*14-7)*1.1^(LAND/2):I WI(H 
)=MAX(-16,MIN(16,WI(H))) 

760 DISPLAY AT(24,1)SIZE(17) 
: M WIND DREHT ( B JSTR*((9-H)*8 
:: GOSUB 2050 

770 CALL POSITION(«2,Y,X) : : 
AL=(150-Y)*5 :: DISPLAY AT(2 
4,24):£TR$(MAX(O,AL))»"§” :: 

ALM=MAX(AL,ALM) 

780 CALL MOTION(«2,YD, WI (INT 
< Y/16) ) ) : : CALL POSITION(«2, 

Y,X):: IF Y<16 THEN CALL MOT 
ION(«2,O,O):: YD=G 


790 IF Y < 151 THEN 810 
800 CALL COINC(#2,810,18,C): 
: IF C=0 THEN CALL SPRITE(«1 
l,140, bco, y,X):: gosub 2080 
:: fu=i :: goto 990 else 121 
o 

810 CALL COINC(«1,#2,16,CO): 

IF X < 30 OR X >218 GR CO THE 
N CALL SPRITE(«11,140,BCO,Y, 
x> :: gosub 2080 :: goto 970 
820 IF JT$= ,, J” THEN 860 
830 CALL KEY(0,K,S):: IF S=0 
THEN 750 ELSE IF K=ASC(AS*) 
THEN 910 

840 IF K=ASC(DW$)THEN YY=-4 
:: GOTO 880 

850 IF K = ASC < UP$)THEN 890 EL 

SE 750 

860 CALL KEY(1,K,S>:: IF S<> 
O THEN 910 

870 CALL JOYST(1, XX, YY):: IF 
YY=0 THEN 750 

880 IF YY =- 4 THEN YD = MIN( YD + 
1.5,6):: CALL SOUND(300, -5,8 
):: GOTO 750 

890 IF SND$=RPT$(" ”, SS)THEN 
750 ELSE SMD$=SE6$(SND$fe H " 
,2, SS)*.: DISPLAY AT ( 24,1 ) SIZ 

E(17):snd* :: call sfrite(«i 

I, 32,2,Y,X,25,O) 

900 CALL POSITION(«11,Y,X):: 
IF Y <144 THEN 900 ELSE CALL 
delsprite(« ll):: call sound 
(1,-7,6):: YD=MAX(YD-1.5,-6) 

:: GOTO 750 

910 CALL SPRITE(«1 1 , 140,BCO, 
Y,X,5,-2-(X<128) *4) :: DISPLA 
Y AT( 24, !):”** AUSGESTIEGEN 
**- :: FU,BD=o :: yd=-6 :: s 
c=sc-ioo 

920 IF BD=1 THEN 950 

930 CALL POSITION(«2,Y,X)II 

CALL MOTION (#2, YD, WI (.INT (Y/ 1 

6))):: IF YCIO THEN CALL MOT 

ION(«2,0,0):: YD=0 

940 CALL COINC(#1,«2,16,CO): 

: IF X(30 OR X>218 OR CO THE 
N GOSUB 2080 ZZ BD=1 
950 CALL POSITION(«11,Y,X )iZ 
IF Y >144 THEN CALL MOTION(« 

II, 0,0) : : FU=1 

960 IF FU=0 OR BD=0 THEN 920 
ELSE 990 

970 XD=—2—(X<128)*4 :: CALL 
MOTION(«11,5,XD) 

980 CALL POSITION(«11,Y,X):I 
IF Y< 145 THEN 930 ELSE CALL 
MOTION(«11,O,O):: GOTO 990 
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990 CALL TALK WEND«) : : CALL 
SPRITE<#12,36,16,145,240,0,- 
10):: N*=300 

1000 CALL POSITION <#12,YY,XX 
>:: IF XX>X THEN CALL SOUND< 
-500,N,7,N+100,IO):: N=700-N 

:: goto iooo else call Moti¬ 
on <#12, o, O) 

lOlO FOR A=1 TO 8 :: CALL SO 
UND < ~1,INT <RND*3-7) ,INT <RND* 
15+5)):: next a 

1020 CALL DELSPRITE<#11):: c 
ALL MOTION(#12,0,-14):: N=30 

o 

1030 CALL POSITION(#12,YY,XX 
):: IF XX >8 THEN CALL SOUND< 
-500,N,7,N+lOO,10):: N=700-N 
:: GOTO 1030 ELSE CALL DEL3 
PRITE(#12) 

1040 IF BAL< 3 AND FU=1 THEN 
L=30 :: CALL MOTION(#13,O,7) 

:: FU=0 ELSE 1070 

1050 CALL POSITION(#13,Y,X): 

: IF X< 235 THEN CALL SOUND(1 
,-3,L):: l=40-l :: goto ioso 
ELSE CALL MOTION(#13,O,O) 

1060 sc=sc-ioo :: goto 680 

1070 FOR A=120 TO 660 STEP 2 

o :: call sound (-loo, a,6):: 
NEXT a 

1080 DISPLAY AT(6,7)SI2E<15) 

: M )) GAME OVER (<" 

1090 IF FU=0 THEN DISPLAY AT 
(8,3)SIZE(24):"DU LIEGST IM 
KRANKENHAUS" :: SC=SC-200 EL 

SE DISPLAY AT<8,3)SIZE(21):" 
KEINE BALLONS MEHR DA" 
llOO GL«= M GUTE LANDUNGEN:"feS 
TR«(LA):: VP«="UND VERPATZT 

:"&str«<pe):: Display -at <11 

,5)SIZE<LEN(GL«)):GL* :: DIS 
PLAY AT<13,5)SIZE(LEN<VP«)): 
VP« . 

lllO SC«=STR«<SC)PUNKTE" 
:: DISPLAY AT <16,14-LEN(SC«) 
/2)SIZE<LEN(SC«)):SC« 

1120 DISPLAY AT<18,7)SIZE<16 
): "NOCHMAL < 3 / N)?" 

1130 CALL KEY(3,K,S):: IF K< 
>74 AND K< >78 THEN 1130 ELSE 
DISPLAY AT<18,22)SIZE(1) :CH 
R«<K) 

1140 FOR A=6 TO 18 :: CALL H 
CHAR(A,4,120,25):: NEXT A 
1150 IF K=74 OR K=106 THEN 6 


1160 DISPLAY AT(12,3)SIZE< 23 
):"ADIOS,TSCHUESS,GOOD BYE" 
1170 GOSUB 2000 
1180 FOR D=1 TO 1000 :: NEXT 
D 

1190 CALL DELSPRITE(ALL):: C 
ALL CLEAR 
1200 END 

1210 CALL MOTION(#2,O,O):: L 

a=la+ l :: lv=i-lv :: IF lv=i 

AND SS >5 THEN SS=SS-1 :: DI 
SPLAY AT (24,1): "EIN SANDSACK 
WENIGER." :: GOTO 1240 
1220 DISPLAY AT ( 24,1 ):" TOWER 

:mehr wind!" :: for a=o to 9 

:: IF Wl (A) >-16 AND WI(AX1 
6 THEN WI <A)=WI <A)*1 . 1 
1230 NEXT A 

1240 CALL TALK(VDANG«) : : SC = 
SC+ALM*5+100*LA *.: CALL LOCA 
TE(#2, 150,HA + 4) 

1250 CALL POSITION<#13,Y,X): 

: FOR A=1 TO 15 :: CALL SOUN 
D(l,-5,5):: CALL LOCATE(#13, 
Y-5,X):: FOR D=1 TO 70 :: NE 
XT D :: CALL LOCATE(#13,Y,X) 
1260 NEXT A : : IF LA/3<>INT< 

LA/3)THEN 720 ELSE DISPLAY A 
T(24,1):"DEINE ";STR«(LA)J". 

LANDUNG HIER!" :: SC=SC+200 
1270 CALL T ALK < VGOOD« ) 

1280 CALL POSITION (#1 ,Y,X):: 

IF X >1 46 OR X<110 THEN 1230 
1290 FOR A=14 TO 16 :: CALL 

Position<#i,y,X):: call soun 

D<1,1IO,5,-5,4):: CALL SPRIT 
E<#A,140,3+<A-14)*2,Y,X,5,0) 

:: for d= l to 20 :: next d : 

: NEXT A 

1300 IF BAL >1 THEN DISPLAY A 
T <24,1) :"EIN ZUSATZBALLON!" 

:: BAL=BAL-1 

1310 FOR A=1 TO 3 

1320 CALL POSITION <#A+13,Y,X 

>:: IF Y<150 THEN 1320 ELSE 

CALL MOTION(#A+13,0,0) 

1330 CALL S0UND<1,-6,2) : : NE 
XT A : : CALL DELSPRITE <#14,# 
15,#16) : : CALL MOTION <#13,0, 
7 ) 

1340 CALL POSITION(#13, Y , X) : 
: IF XCHA-4 THEN CALL SOUND< 
l,-3,L):: l=40-l :: goto 134 
O ELSE CALL MOTION(#13,O,5,# 
2,0,5) 
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1350 CALL POSITION(#2,Y,X):: 

IF X< 240 THEN CALL SOUND(1, 
-3,L):: l=40-l :: goto 1350 
ELSE CALL MOTION<#13,O,O):: 
CALL DELSPRITE(#2) 

1360 BAL=BAL-1 :: GOTO 680 
1370 CALL HCHARU, 1, 120,768) 
:: CALL HCHAR<24,1,92,32) 

1380 CALL CHAR(32,"FFOOOOOOO 
OOOOOFF") 

1390 FOR A=1 TO 8 :: CALL VC 
HAR<A,3,111+A):: CALL VCHAR< 
A,31,120-A):: NEXT a :: FOR 
A = 9 TO 16 :: CALL VCHAR < A , 3 , 
128-A):: CALL VCHAR(A,31,103 
+A);: NEXT A 

1400 FOR A= 17 TO 23 .*: CALL 
VCHAR(A,3,95+A)I: CALL VCHAR 
< A, 31,136-A) : *. NEXT A 
1410 CALL VCHAR<24,3,91):: C 
ALL VCHAR(24,31,93) 

1420 CALL SPRITE<#16,128,16, 
3,100,0,4,#17,123,16,3,30,0, 
5,#18,128,16,22,190,0,6,#19, 
128,16,3,2,0,7) 

1430 DISPLAY AT<6,3)SIZE<12) 

: ” ö j3ö< FLUGTAG > " :: DISPLAY A 

T < 7,8)SIZE < 2) : H ü";CHRS(127) 
1440 DISPLAY AT<9,6)SIZE<18) 
: ,! ÖBÖ<AUF UND DAVON >" II DIS 
PLAY AT<IO,6)SIZE<2):"Ü"iCHR 
*(127) 

1450 DISPLAY AT<12,6)SIZE<18 
) : ” öJ3ö< IM LUFTBALLON > " :: DI 

SPLAY AT<13,6)SIZE(2) : "ü"5 CH 
R* <127) 

1460 DISPLAY AT<19,5)SIZE<20 
>:"ö£q<ZUM START TASTE >" l Z 
DISPLAY AT<20,5)SIZE<2):"ü"5 
CHR*<127) 

1470 CALL SPRITE<#4,100,3,17 
7,103,#5,lOO,6,177,120,#6,IO 
0,9,177,137) 

1480 CALL SPRITE<#1,96,3,175 
,107,0,0,#2,96,6,175,124,0,0 
,#3,96,9,175,141,0,0)!.: FOR 
D=1 TO 50 

1490 CALL KEY<0,K,S):: IF S= 
1 THEN 1630 
1500 NEXT D 

1510 FOR A=1 TO 3 : : CALL MO 
TION<#A,-2,0)I: CALL SOUND<1 
0,-7,3):: FOR D=1 TO 30+A*20 

:: next d :: next a 

1520 CALL MOTION<#INT<RND*3+ 
1> ,-4, INT <RND*10-5) ) 


1530 FOR A=1 TO 3 :: CALL PO 
SITION<#A,Y,X) : ^ IF Y < 20 THE 
N CALL MOTION <#A,0,0) : : CALL 
COLOR <#A,7) t: CALL PATTERN< 
#A,136):: peng=peng+ l :: CAL 
L SOUND<200,-7,3) 

1540 IF X< 30 THEN CALL MOTIO 
N<#A,-4,5)ELSE IF X>215 THEN 
CALL MOTION<#A,-4,-5) 

1550 CALL KEY<0,K,S):: IF S= 
1 THEN 1630 

1560 IF PENG=3 THEN 1580 
1570 NEXT A :: GOTO 1520 
1580 FOR A=1 TO 3 :: CALL PA 
TTERN<#A,140):: CALL COLOR<# 
A,A*3):: CALL MOTION<#A,5,O) 

:: next a 

1590 CALL MOTION<#INT<RND*3+ 
l),5 ,int<rnd*io-5)):: call k 
EY< 0,K,S):: IF S=1 THEN 1630 
1600 FOR A=1 TO 3 :: CALL PO 
SITION<#A,Y,X) : : IF Y >165 TH 
EN CALL MOTION<#A,O,O):: CAL 
L SOUND<IO,-3,5):: CALL DELS 
PRITE < #A):: PENG = PENG-l :: I 
F PENG=0 THEN 1480 
1610 IF X< 30 THEN CALL MOTIO 
N<#A,4,5)ELSE IF X>215 THEN 
CALL MOTION<#A,4,-5) 

1620 NEXT A :: CALL KEY < O,K, 
S):: IF S<1 THEN 1590 
1630 CALL DELSPRITE<ALL):I C 
ALL CHAR <32, " " ) I *. CALL CLEAR 
1640 FOR A=65 TO 90 :: CALL 
CHARPAT<A,A$) : : CALL CHAR < A, 
•00"fcSEG*<A*, 3, 12)fe"00“ ).: : N 
EXT A 

1650 DISPLAY AT<6,11>:"FLUGT 

AG" :: DISPLAY AT<7,11>:"- 

-” :: DISPLAY AT<9,1):“<C 

) BY MG-SOFTWARE 1984“ 

1660 DISPLAY AT <11,1):“GEWID 
MET DEM LSC LEVERKUSEN" 

1670 DISPLAY AT <14,1):"SPEEC 
H-SYNTHESIZER <J/N)? J" :: D~ 
ISPLAY AT<16,1>:"ANLEITUNG N 
OETIG <J/N)? N* 

1680.DISPLAY AT<23,2):"BITTE 
ALPHA LOCK EINRASTEN" 

1690 ACCEPT AT<14,27)VALIDAT 

e < °jn")size <-l): sp$ :: if sp 

*="" THEN 1690 

1700 ACCEPT AT<16,25)VALIDAT 
E<"JN")size<- i): in* :: IF IN 
*="" THEN 1700 
1710 IF SP*="N" THEN 1730 





1720 VDANG*="LOOK OUT" :: VS 
TART*=” PRESS UP TO START" :: 

VEND*=" I AM SORRY BUT YOU W 
ERE NOT GOOD" :: VGOOD*="YOU 
WERE VERY GOOD" 

1730 CALL CLEAR :: IF IN*="J 

" THEN GOSUB 1860 

1740 DISPLAY AT<11,1):"HOCH. 

:: DISPLAY AT(13,1) 

:"RUNTER...—)" :: Display a 
T(15,1):"ABSPRUNG --)" 

1750 DISPLAY AT<6,1):"<J)OYS 
TICK / (T)ASTATUR? -)T" :: A 

CCEPT AT<6,28)SIZE<-1)VALIDA 

te<"JT"):jt* :: if jt*="" th 

EN 1750 

1760 IF JT*="J" THEN DISPLAY 
AT<Q,2):"BITTE ALPHA LOCK L 
OESEN" ELSE DISPLAY AT<8,2>: 
"BITTE ALPHA LOCK EINRASTEN" 

1770 IF JT$="T" THEN 1800 
1730 UP*=" " 

1790 DISPLAY AT<11, 13) : " J1 H 
OCH" :: DISPLAY AT(13,13) l "J 
1 RUNTER" :: DISPLAY AT(15,1 
3):"FIRE <J1>" :: GOTO 1840 

1800 FOR A=11 TO 15 STEP 2 : 

: DISPLAY AT(A,13):: NEXT A 
1810 VASi=" = /,. " :: ACCEPT A 

T <11, 13)SIZE(1)VALIDATE(UALP 
HA,NUMERIC,VA«):UP* :: IF UP 
35=“" THEN UP$=" " 

1820 ACCEPT AT<13,13)SIZE<1) 
VALIDATE(UALPHA,NUMERIC,VA*) 

:dw$ :: if dws=" m then dw«=" 

M 

1830 ACCEPT AT<15,13)SIZE<1) 
VALIDATE(UALPHA,NUMERIC,VA$) 

:as* :: if as*=-" then as*=" 

M 

1840 DISPLAY AT<20,1):"(S)PI 
EL/<A)ENDERN? S" :: ACCEPT a 
T <20,20)VALIDATE("SA">SIZE<- 
1)*.'A* :: IF A«="A" THEN 1750 
1850 CALL CLEAR :: RETURN 
1860 PRINT TAB<11);"FLUGTAG" 

m m i 

• • 

1870 PRINT "ZIEL VON *FLUGTA 
G* IST ES,..MIT EINEM BALLON 
MOEGLICHST OFT HOCH AUFZUST 
EIGEN.DAZU..STEHEN DREI BALL 
ONS ZUR VER-“ 

1880 PRINT "FUEGUNG.SIE UNTE 
RSCHEIDEN SICH IN DER FÄRB 
E.GESTEUERT WIRD DER BALLON 
DURCH GASAB-LASSEN (SINKEN)U 
ND BALLAST-" 


1890 PRINT "ABWURF (STEIGEN) 
.DER BALLON WIRD DURCH- WINDE 
HIN-UND....HERGERISSEN." 
1900 PRINT "VORSICHT VOR DEM 
SPORTFLUG- ZEUG UND DEN FES 
SELBALLON-..LEINEN." 

1910 PRINT : :TAB(25) J ") ) ) " 

1920 CALL KEY(0,K,S):: IF S< 
1 THEN 1920 ELSE CALL CLEAR 
1930 PRINT "DIE LANDUNG MUSS 
GENAU AUF..DEM STARTPLATZ E 

RFOLGEN.SONST VERLIERT M 

AN EINEN. ... BALLON.STOESST M 
AN GEGEN DAS" 

1940 PRINT "FLUGZEUG ODER DI 
E LEINEN,SO IST SPIELENDE,AU 
SSER,MAN HATSICH DURCH EINEN 
ABSPRUNG" 

1950 PRINT "GERETTET.DER BAL 
LON ZER-. ... SCHELLT DANN ZWA 
R,DAS SPIEL GEHT ABER WEITER 
.IN DER UN- TERSTEN ZEILE WE 
RDEN HOEHE" 

1960 PRINT "UND BALLASTMENGE 
ANGEZEIGT. ALLE DREI LANDUN 
GEN GIBT ES EINEN ZUSATZBALL 
ON. ” 

1970 PRINT :T AB(25)?")))": : 

1980 CALL KEY(0,K,S):: IF S< 
1 THEN 1980 ELSE CALL CLEAR 
:: RETURN 
1990 GOTO 1990 

2000 CALL POSITION(«1 , Y, X) : : 
IF X< 200 OR X >220 THEN 2000 
ELSE CALL MOTION(#1,11,-10) 
2010 CALL SOUND(-999,-3,14): 

: CALL POSITION(ttl,Y,X) : : IF 
Y<166 THEN 2010 ELSE CALL M 
OTION(#1,O,-8) 

2020 CALL SOUND(-999,-3,20): 
! CALL POSITION <#1,Y,X) :! IF 
X>20 THEN 2020 ELSE CALL MO 
TI0N(#1,0,0) 

2030 FOR A=20 TO 30 :: CALL 
SOUND(-999,-3,A):: NEXT A 
2040 RETURN 

2050 IF WI(9)<i THEN CALL CH 
AR(lOO,FLGL$)ELSE CALL CHAR( 
lOO,FLGR*) 

2060 FOR W=16 TO 19 :: CALL 
MOTION(#W,O,<W-12)*SGN<WI(O) 

)):: NEXT W 
2070 RETURN 


Fortsetzung auf Seite 29 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 



KOMMT REGELMÄSSIG 

Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder „Euer" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze .30 DM liefern wir Euch per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein auf der nächsten Seite ausschneiden 
- fotokopieren oder abschreiben, in einen Brief¬ 
umschlag und ab' per Post (Achtung: Porto nicht 
vergessen). TI REVUE kommt dann pünktlich 
ins Haus. 


WICHTIGE RECHTLICHE Verlag widerrufen- Postkarte ge- 

GARANTIE! nügt. Ansonsten läuft dieser Auf¬ 

trag jeweils für sechs Ausgaben, 
Sie können diesen Abo-Auftrag wenn ihm nicht vier Wochen 

binnen einer Woche nach Eingang vor Ablauf widersprochen wird, 

der Abo-Bestätigung durch den weiter. 


ZU IHNEN 
INS HAUS 



EIN MUSS FÜR JEDEN TI- USER 

RUND 150 SEITEN 

USTIHCSI USTINGSI USTINGSI 



Achtung Tl-User! Jetzt kommt für Sie das große Listing-Sonderheft 
von TI-REVUE. Rund 150 Seiten Listings. Spiele, Profiprogramme, 
Lehrprogramme, für Schule und Hobby. Aus diesen Listings können 
Sie ersehen, wie andere Tl-User Aufgaben lösen. Ein unbedingtes 
Muß für jeden programmierenden Tl-Besitzer. Dazu als Sonderservice: 
Eine Übersicht aller Firmen, die noch Tl-Hard- und Softwaren führen! 
Der große Tl-Katalog. Nur 12,80 DM! 

Erscheinung: Am 29. Mai. Sie erhalten das Heft bis zu einer Woche 
früher! 

Reservieren Sie sich Ihr Exemplar mit dem Coupon auf der nächsten 
Seite. Achtung: Kein Geld senden, wir schicken per Nachnahme oder 
gegen Vorausrechnung bei Erscheinen! 

25 




H> C 


<£ £ 

1.1 

CD 

CD — 
' Q_ 
"O CD 


s| 

« CD 

co 5" 
o 00 
■p» 2 

i“2 
o 3 

3" DJ 
3- 3 
O 


OWZD?7s 
- d 3 o 


IE ro 3 ro ro Z-o TJ TJ EJ. 

I OJ r» CD-CD CD —' 


NX 

CU 


TT 

e 

3 

o. 

O 

3 


-n H 5 . 

- —_3* »3 

m-t 

< CD 
CZ CD 

m 3 

CO CD - 

jp 

$2 co 

cd" 

Ü3 


CD-CD CD 

C 

00 <z 

CD O CU 
3 “’ O 
?r“ 3- 
OJ £■ 3 
O- SQ CD 
3- <D 3 
C C-> =1 

&§■« 

= C CT 

3 3 2 . 

ica (£3 

oj m 

in 

<C ^ 3" 

CD CD 

03 £ Q.'S. 

“ 3 3 C 

g-^CD 00 
3 - d? q. "o 
2.iS o 
M Gi£ 
“ 2 .« 
^ Q- er 

CD C: 


(O 

CD 


OO 

cn. 

M 

c 

3 

■o 
—? 
CD 
00' 


ro 

00 

o 



DAS SUPER-SONDi 
PRIVATE 
KLEINANZEIGEN 
KOSTENLOS! 

Das bietet Ihnen ab sofort die Tl-Revue: KLEIN¬ 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 

Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen ä 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 
serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 2,50 plus Mehrwertsteuer! 


ABO SERVICE-KARTE 


5 

TI 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


TI REVUE 

Abo-Service 5 
Postfach 1107 

8044 UNTERSCHLEISSHEIM 


--- X 

Coupon Bitte senden Sie mir bis auf Wider¬ 

ruf ab sofort jeweils die nächsten 
Ja, ich möchte von Ihrem Angebot sechs Ausgaben an untenstehende 
Gebrauch machen. Anschrift. 

Name_--- 

Vorname____—r—— 

Straße/Hausnr---- 

Ptz/Ort_____ 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung \ . 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort- — 

Kontonummer__ — 

Bankleitzahl----- 

(stehtauf jedem Kontoauszug) 

Unterschrift____ 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 

Unterschrift_____ 
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Ft- ANGEBOT: 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab¬ 
hängig! 

Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes - Computer - gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu¬ 
läßt_ 

Wollt Ihr nicht mehr seitenlange Listings eintip¬ 
pen? Dann benutzt unseren Kassetten-Service: Für 
ganze zehn DM - nur Vorkasse, keine Rechnung - 
keine Nachnahme - erhalten Sie alle angebotenen 
Listings des jeweiligen Heftes auf Kassette per Post 
ins Haus. Achtung: Bestellungen ohne Geld werden 
nicht bearbeitet! Lieferzeit: In der Regel zwei bis drei 
Wochen! Wichtig: Unsere Kassetten werden digital in 
einem Profistudio von einem Masterband gezogen, 
nicht irgendwie per Recorder runtergenudelt. Selbst¬ 
verständlich volles Umtauschrecht bei Nichtfunktio- 
nieren. 




c 

CO 

c 

<D 

TD 

C 

Q) 

CO 



KLEINANZEIGEN SERVICE-KARTE 


- 

COUPON 

PREISLISTE FÜR 

GEWERBLICHE 

ANBIETER 

Jeder Millimeter in der 42 mm 
breiten Anzeigenspalte kostet 
als Fließtext-Anzeige DM 2,50 
plus MWSt. Gestaltete Anzei¬ 
gen pro mm DM 3,— plus 
MWSt. Sie erhalten eine 
Rechnung. 

Hiermit bestelle ich gemäß 
Ihrem Angebot in der nächst¬ 
erreichbaren Ausgabe von Tl- 
REVUE folgende 
( ) Privatanzeige 
( ) Gewerbliche Anzeige 
— Zutreffendes ankreuzen — 

TI REVUE 
Anzeigenabteilg. 
Postfach 1107 
8044 Lohhof 


Die große Börse für jeden Zweck in der TI REVUE. Kostenlos für Privat-Inserenten. Spott¬ 
billig für gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen 
und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht auf dem Coupon, 
ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedwe¬ 



den Abdruck kostenloser Anzeigen Vorbehalten müssen, insbesondere, wenn deren Inhalt 
nicht TI-typisch ist oder gegen geltendes Recht verstößt. Private Chiffreanzeigen werden 
nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen ä 28 Anschläge. 






BÖRSE 


Verk.TI99/4A + Expan¬ 
sions-Box + Karte für Box 
+ Extended Basic + 
Handbuch (deutsch) + 
Rec.Kabel (Orig. TI) + TI 
Bücher (Tips + Tricks u.a. 
DM 900-, Walter Hufler, 
Am Geistpförtchen 2,6 
Ffm. 1, Tel. 069/287781 


TI99/4A + ExBasic + Mi- 
ni-Ferns. + Cass. Rec. + 2 
Joyst. (TI) -I- 7 Spielmodu- 
le + Progr. a. Kass. + 4 
Bücher ü. TI 99/4A und 
mehr,zus. nur 900-, Tel. 
06431/53131 


Super-Grafik-Paket mit 5 

Demo (Ex-B-)Platten- 
zeichner (Ex-B-)Duell im 
All (TI-B), Moonlander 
(Ex-B). Drehen v. Sprites 
(Ex-B). Infos bei frank. 
Rückumschlag R. G. 
Watzling 10, 8250 Dorfen 


Lohnsteuer sparen! LJA 
1984 mit dem TI. Lst. und 
Est.-Tabellen und weitere 
Prg. Infogegen Rückporto 
Dieter Schiller, Rachelstr. 
10a, 8400 Regensburg 


99/4Akpl. m. Box + 
RS232 + V24 + 32K + 
Disk + X-Bas. + Dat Ver 
+ Anal + Epson RX 80 m. 
Kabel + v. Zubeh. VB 
2900-, Tel. 06041/5285 


Cassettenprogr. f. TI 99/ 

4A, Spiele, Adventure, . 
Nutzprogr. n. Wahl, Infoli¬ 
ste g. frank. Briefumschlag 
T. Brandau,Troppauerstr. 
6,8552 Höchstadt/A. Tel. 
09193/1820 


Suche Ti Ext. Basic Modul 
bis 150,-. Tel. 0271/334867 


TI-Module zu verk. 
Munchman 60,-, Hustle 
30,-, Tombstone 35,-, Par¬ 
sec 60,-, Moonsweeper 
70,-. Tel. 02473/7320 


Yerk. TI 99/4A mit Zube¬ 
hör. Tel. 08252/7986 


Suche TI-Extended Basic, 
Beate Reischmann, 
Schwimmbadstr. 5,8302 
Kloten (CH) 


Verk. tolle Masch.Prgr. 
für MM, XB u. E/A Mod. 
u.a. dt. Textverarb. Liste 
geg. DM 0,80 in Briefm. 
von M. Hofmann, Bauern- 
waldstr. 130, 7000 Stgt. 1 


TI 99/4A + Ext. Basic u. 
Rec-Kabel + Literatur + 
TI. + Ex-BasicKurs + 
Spielmodule + Cas. Soft¬ 
ware, 600,- DM. Tel. 
05403/5675 ab 18 Uhr 


Neue Mailbox! Alldas Te- 
lemod. Tel. 0243/23602 


Verkaufe gehr. TI 99/4A 
Anlage. Auch einzeln. In¬ 
formation u. Liste unter 
der Tel. 030/4916770 


TI Module günstig! Schach 
65-, P ACM AN 60.-, 
Munchman 40,-, PAR¬ 
SEC 45.-, Micro-Surgeon 
60,-. Tel. 0531/342633. 

R. Werthebach 


TI 99/4A Adressenver- 
walt. Games, Utilities bei 
H. G. Rausch. M.-Planck- 
Str. 14, 53 Bonn 2, RP 2 


Module Attack, Othel. 
Carw. je 20, r , Alpiner 
30,-, Parsel 40,-, Bücher 
usw. Tel. 06638/1503 


Suche: Diskcontroller 
(Ex.). Biete: Laufw. 
BASF-6106, SS, DD 299,- 
Tel. 0251/664684 


Superprogramme in B. + 

Exb. ab 2 DM. Info g. 1 
DM bei CBT-Software. 
Stefan Berger, Joseph- 
Götschstr. 8, 8093 Rott 
(ZB Robin Hood, Black 
Hole) 


Verk. gegen Höchstgebot 
folg. Module: Statistik 
(engl.), Buchf., Speech 
Editor, Invaders, Munch 
Man, Video Games 2. 
Multipl,TI-Writer(jew. + 
Disk), Rechnungsst. (nur 
Disk), sowie alle 11 Adv. 
Spiele auf Cass. (Mod. er- 
forderl.). Angebote bis 3 
Wo. n. Erscheinungsdat. 
an M. Humbert, Saphir¬ 
ring 30,3008 Garbsen 1, 
Versand per NN. 


Editor/Ass. Anwender 
sucht Tauschpartner. Ver¬ 
kaufe int. Laufwerk 350,- 
DM. Hans Bednarz, Im 
Rundteil 13,3055 Hagen- 
burg, Tel. 05033/7347 


Tausche Software (TI/X/ 
EA), suche Kont. Groß¬ 
raum Köln. Drucke 
Listingsgeg. Un- 
kostenerst. Suche DFÜ- 
Partner. B. Betz, Siegbur- 
gerStr. 111,5000 Köln 21, 
Tel. 0221/883105 


Verkaufe TI- und Ex-Basic 
Programme. Infogegen 
Rückporto. B. Knedel. 
Tulpengasse 16.3171 Wev- 
hausenTTel. 05362/71187 


Verk. TI 99/4A P-Box RS 
232,32K Drucker Ex.Ba¬ 
sic E/A Modul Parsec 
Casskabel. div. Spiele, Bü¬ 
cher und Literatur kom¬ 
plett VB 05361/74476 


Verkauf: 99/4A + Box + 
XBasic -I- Disk + Control 
+ 32K + RS232 + CassKa- 
bel + Joysticks + Mini¬ 
mem (+ dt. Handbuch) + 
Software -I- Literatur 
2800,-DM. Markus 
Nikolay, Am Erzei 14, 
6633 Wadgassen 3, Tel. 
06834/41475 


Suche Tl-User zwecks 
Assemblerprogramm¬ 
tausch. Jörg Storm, Tel 
0821/63857 


Verkaufe komplette TI- 
Anlage in fahrb. Schrank. 
Dazu Bücher, 40 Disc, 20 
Mod., 20 Cas. Listings 
usw. DM 4250,-, Tel. 
02041/28321 


Suche für TI 99/4A Disk- 
1 Laufwerk, Tel. 089/ * 

4703941 __ 

Suche Disk- oder Kass.- 
Bundesliga-Tabelle. Alwin 
Koop, Lagerlöfstr. 34, 

2000 Hamburg 65 


DIE NÄCHSTE 
AUSGABE 
ERSCHEINT AM 
26. JUNI 


Verk.TI99/4A + Ext.- 
Basic + Reckkab. (origin. 
TI) + Spiele + Literatur 
NV 02043-71974, Thomas 
Fliß, August-Brust-Str. 26, 
4390 Gladbeck 


TI 99/4A + Extended Ba¬ 
sic u. Buch + Kassetten + 
Recorder + 2 Joysticks + 
Othello + Rec.- und Moni¬ 
torkabel. Nur alles zusam¬ 
men zu verkaufen für DM 
600,-,Tel. 02041/36569 
nach 17 Uhr in 4250 
Bottrop. 


TI 99/4 A + Joyst. + Pgm’s 
u. RecKabel u.a. 180,-. 
Thorsten Reich. Fritz Rc- 
mystr. 11, 6050 Offenbach 


Verkaufe: Softwareset 
(Ex), 8 Programme mit 
Cass. gegen 10 DM- 
Schein. 5 Spiele + 3 prakt. 
Progr. z.B. Mathe, die er¬ 
ste 10 plus Softwarebonus. 
Module Attack, CAR- 
RACE, TOMBSTONE- 
CITY je 300,- DM bei V. 
Brose. Hamburgerstr. 1, 
4750 Unna-Kgb. 


TI 99/4A Datenverw. + 
Analyse-Modul (neu-ori¬ 
ginal verpackt) 50,- DM, 
Tel. 02331/402220 


Achtung, suche Program¬ 
me für TI 99/4A. Liste sen¬ 
den an: Dirk Zimmer, An 
der alten Kantine 2,3163 
Sehnde 3. 


Orig. TI 99/4A ungebr. 
089/2715110, H. Ch. 
Steeg 


Suche Music Maker-Mo¬ 
dul, bis 35 DM, Stefan 
Lauterbach, Kyfittingö, 
3380 Goslar 


TI-Rechner-Menügesteu- 
ert. Programm mit 14 
Rechenarten. Incl. Cass. + 
Porto nur DM 10,-im Um¬ 
schlag an: D. Karbach, 
Remscheider Str. 18, 

5650 Solingen 1 

TI 99/4A + versch. Spiel- 
Module + Joyst. 350,-. 
Tel. 06752/5735. M. Füh¬ 
rer, 6570 Kirm 
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2080 CALL SOUND(500,-6, 3) : : 
CALL COLOR(#2,7) : : CALL MOTI 
0N<#2,0,0):: CALL PATTERN(#2 
,136) 

2090 FOR D=1 TO 200 :: NEXT 
D :: CALL DELSPRITE(«2):: DI 
SPLAY AT(24,1)J"..DEIN BALLO 
N IST GEPLATZT." 

2100 PE=PE+1 :: RETURN 
2110 SUB TALK(S«) 

2120 IF S«=" H THEN SUBEXIT E 
LSE CALL SAY(S«fk" , ,OVER") 
2130 SUBEND 


HeGa-Sofl 

Software, Hardware und Literatur 
Postfach 1201 8044 Lohhof 

TD D ä t c=*. S 
Das universelle Dsteipragramm 
■für den TI 
»benötigt Disc ♦ 32 K) 

M «_jl DM T T ,- 

ID K cd k-i t c=> 

Kontenverwaltung und 
doppelte Buchhaltung 
auf dem TI 99/4 A 

(benötigt Disc ♦ 32 K) 

Nu. n DM 119 ,- 

TI Pno-F i Set 
ID Data 2 + ID Konto 
(Siehe Einzelbeschreibungen) 

Zusammen DM 198, —- 


Verk. TI 99/4A mit Cas- 
settenrec., 2 Module, 
Fachlektüre u. über 20 
Programme für 380 DM. 
4350 Recklinghausen, 
Tel. (02361)498805 
Eugen Höning 


Verk. T1-99/4A + Druk- 
ker + Schnittst. + Ex- 
Basic + 4 Module + Cass.- 
Rec. + Kabel + 4 Bücher 
+ Prg. +200Q Blatt D.- 
PapierVB: 1400. Uwe 
Andersen, Tel. 04632/ 
7804 


SUPER! GÜNSTIG! Spiele und Anwendersoftware f. 
TI 99/4A, u.a. erstkl. Flugsimulationsprogr., Rec.-Kabel 
19,90 DM, Staubschutzhauben 19,90 DM u.v.a.m. 

Info: W. Warne, Tannenweg 19, 2360 Bad Segeberg 
(frank. Rückumschlag 0,80 DM) 


lOO 

HO 

REM*-) 

REM* 

f***************** 

f* 

* 

120 

REM* 

STATISTIK 

*« 

130 

REM* 

Copyright by 

* 

140 

REM* 

Udo Wenzel 

* 

150 

REM* 


* 

160 

REM* 

Bearbeitet vom 

* 

170 

REM* 

Team des 

* 

180 

REM* 

Aktuell Verlages 

* 

190 

REM* 

Muenchen 

* 

200 

REM* 


* 

210 

REM*Benoetigte Geraete* 

220 

REM* 

TI99/4A. Konsole 

* 

230 

REM* 


* 

270 

REM* 

Speicherbelegung 

* 

280 

REM* 

5778 Bytes 

* 

290 

REM******************** 

295 

REM 



300 

CALL 

CLEAR 


3 10 

FOR I 

=1 TO 16 


320 

CALL 

COLOR(1,16,1) 


330 

NEXT 

I 


340 

ANZ = d 

i 


350 

Zl«=" 

FFFFFFFFFFFFFFFF" 


360 

A«="0103070F1F3F7FFF" 


370 

CALL 

CHAR(152,ZI«) 


380 

CALL 

CHAR(136,ZI«) 


390 

CALL 

CHAR <128,ZI«) 


400 

CALL 

CHAR(120,ZI«) 


410 

CALL 

CHAR(112,ZI«) 


420 

CALL 

CHAR <104,ZI«) 


430 

CALL 

CHAR <102,ZI«) 


440 

CALL 

CHAR <114,A«) 


450 

CALL 

CHAR <150,A«) 


460 

CALL 

CHAR(130,A«) 


470 

CALL 

CHAR(144,ZI«) 


480 

CALL 

CHAR <99,A«) 


490 

CALL 

CHAR <145,A«) 


500 

DIM PR(7),PP(7),RP(7), 

Q3 

(7) , 

Q4 (7) , 

, OP(7) ,AS(7) ,ASD(7) 

,FG(255),F(255),CV(IOO) 


510 

CALL 

COLOR(16,7,1) 


520 

CALL 

COLOR(15,10,1) 


530 

CALL 

SCREEN(2) 


540 

CALL 

CLEAR 


550 

PRINT 

TAB(5);"S T A T 

I 

S T 

I K" 



560 

PRINT 

: :TAB <8) ;"M E N 

U 

E-: 

■ • ■ 

; "1)-ZEICHENDEMO": 


: -2) 

-EINGABE FUER GRAPH": : 


570 

PRINT 

"3)—STATIST 1": 

• II 


4)-STATIST 2": :"5)-ENDE“ 

580 FOR 1=1 TO ANZ 
590 PP(I)=0 
600 RP <I)=0 
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* : ' 

■ • : v 



610 

PR < I) 

=0 : 


620 

OP < I) 

=o 


630 

Q3 (I) 

=o • 


640 

Q4 < I) 

=o 


650 

ASD(I)=0 


660 

AS < I ) 

=0 


670 

NEXT 

I 


680 

CALL 

KEY(O,K,S) 


690 

IF S= 

O THEN 680 


700 

IF K=49 THEN 760 


710 

IF K = 

50 THEN 1270 


720 

IF K= 

51 THEN 2120 


730 

IF K = 

52 THEN 2380 


740 

IF K = 

53 THEN 2970 


750 

GOTO 

1760 


760 

CALL 

CLEAR 


770 

GOSUB 

: 1800 


780 

CALL 

VCHAR(7,6,152,17) 

790 

CALL 

VCHAR <7,7, 152,17) 

800 

CALL 

COLOR <16, 11,1) 


810 

CALL 

VCHAR <7,8, 144, 17) 

820 

CALL 

HCHAR <7,7,144,2) 

830 

CALL 

HCHAR <7,6, 150) 


840 

CALL 

COLOR <15,12,1) 


850 

CALL 

VCHAR <15, IO, 136 

,9) 

860 

CALL 

VCHAR <15, 11, 136 

,9) 

870 

CALL 

COLOR <14,7,1) 


880 

CALL 

COLOR<13,10,1) 


890 

CALL 

VCHAR <15, 12, 128 

,9) 

900 

CALL 

HCHAR(15,11,128 

,2) 

910 

CALL 

HCHAR <15, IO, 130) 

920 

CALL 

VCHAR<10,14,120 

, 14) 

930 

CALL 

VCHAR <10, 15, 120 

, 14) 

940 

CALL 

COLOR <12, 13, 1) 


950 

CALL 

COLOR<11,4,1) 


960 

CALL 

VCHAR <IO, 16, 112 

, 14) 

970 

CALL 

HCHAR <10,14,114) 

980 

CALL 

HCHAR <IO, 15, 112 

,2) 

990 

CALL 

VCHAR < 2,18, 104, 

22) 

lOOO CALL 

VCHAR <2,19, 104 

, 22) 

ioio 

CALL 

COLOR<10,15,1) 


1020 

CALL 

COLOR <9,16,1) 


1030 

CALL 

VCHAR <2,20, 102 

, 22) 

1040 

CALL 

HCHAR<2,19,102 

,2) 

1050 

CALL 

HCHAR <2, 18,99) 


1060 

W*=" 

0505 75%" 


1070 

GOSUB 1180 


1080 

W$i=" 

0913 40%" 


1090 

GOSUB 1180 


1 lOO 

W*=" 

1308 65%" 


11 IO 

GOSUB 1180 


1120 

W$=" 

1701 100%" 


1130 

GOSUB 1130 


1140 

CALL 

KEY <0,K,S) 


1150 

IF S 

=0 THEN 1140 



1160 CALL HCHAR(1,1,23,768) 
1170 GOTO 560 
1180 REM 

1190 XX=VAL <SEG«-(W«, 1,2) ) 
1200 YY=VAL<SEG*<W*,3,2)) 
1210 FOR 11=1 TO LEN<W*)-4 
1220 CALL HCHAR<YY,II+XX,ASC 
<SEG*<W*,11+4,1))) 

1230 NEXT II 

1240 CALL SOUND<500,249,O,31 
5,0) 

1250 RETURN 
1260 GOTO 560 
1270 REM 

1280 PRINT "WIEVIEL SAUELEN 
WERDEN ES ”:"SEIN?":“(HOECHS 
TENS 6 STUECK)"; 

1290 INPUT MM :AN2 
1300 IF ANZ >6 THEN 1280 
1310 GOTO 1540 
1320 REM 

1330 PRINT "WIEVIEL VON WIEV 
IEL?" ; 

1340 FOR 1=1 TO ANZ 

1350 PRINT STRS(I);". EINGAB 

E <xx,xx)" ; 

1360 INPUT "":PP<I),RP<I) 
1370 NEXT I 

1380 PR<I)=<100*PP<I)/RP<I)) 

1390 GOSUB 1800 

1400 GOTO 1680 

1410 REM 

1420 CALL CLEAR 

1430 PRINT "WIEVIEL VON WIEV 

IEL"; 

1440 FOR 1 = 1 TO ANZ 
1450 INPUT "==>":Q3<I),Q4<I) 
1460 OP(I) = < Q4(I)*Q3 <I) ) /100 
1470 PR(I)=0P(I) 

1480 NEXT I 
1490 CALL CLEAR 
1500 TY=152 
1510 UYT =145 
1520 RTY=144\ 

1530 GOTO 1670 - ^ 

1540 CALL CLEAR 
1550 PRINT "SIND DIE EINGABE 
N IN PROZENT?"? 

1560 CALL KEY(O,K,S) 

1570 IF S=0 THEN 1560 

1580 IF <K=78) + <K=HO) THEN 1 

430 

1590 FOR 1=1 TO ANZ 

1600 PRINT STR*(I);". EINGAB 

E <%>"; 


30 





ut --w.x. - 


1610 INPUT "":PR<I> 

1620 CALL CLEAR 
1630 TY=152 
1640 UYT=145 
1650 RTY=144 
1660 NEXT I 
1670 GOSUB 1300 
1680 1=1 
1690 PR ( 7 ) = 1OO 

1700 FOR X 1=5 TO ANZ*4+5 STE 
P 4 

1710 PL=PR(I) 

1720 L 1 =(PR(I) /5 ) +1 
1730 GOSUB 1860 
1740 1=1+1 
1750 NEXT XI 
1760 CALL KEY(0,K,S) 

1770 IF S=0 THEN 1760 
1780 CALL HCHAR(1,1,32,768) 
1790 GOTO 560 
1800 REM 

1810 CALL CHAR(33, "FF" ) 

1820 CALL CHAR(34, " 181813181 
8181818") 

1830 CALL VCHAR ( 1,3,34,23) 

1840 CALL HCHAR(24,3,33,29) 

1850 RETURN 

1860 REM 

1870 REM 

1880 REM 

1890 Y1=24—(LI) 

1900 CY=INT(Yl)-2 

1910 CX=X1 -1 

1920 REM 

1930 GOSUB 2030 

1940 REM 

1950 REM 

1960 REM 

1970 CALL VCHAR(Yl,XI,TY,LI) 
1980 CALL VCHAR(Y1,X1+1,TY,L 
1) 

1990 CALL HCHAR(Y1-1,X1,UYT) 
2000 CALL HCHAR(Y1-1,X1+1,RT 
Y , 2 ) , 

2010 CALL VCHAR(Yl,Xl+2,RTY, 
LI) 

2020 RETURN 

2030 W*=SEG*("0"kSTR*(CX>,LE 
N ( STR* ( CX ) ) , 2 ) ßcSEG* ( " O " &STR* 
<CY) , LEN ( STR* ( CY ) ) , 2 ) &SEG* < S 
TR* (PL) , l,3)8e"%" 

2040 REM 

2050 IF W*="08210%" THEN 750 

2060 IF W*="12210%" THEN 750 

2070 IF W*=“16210%" THEN 750 


2080 IF W*="20210%" THEN 750 
2090 IF W*="24210%" THEN 750 
2100 GOSUB 1180 
2110 RETURN 
2120 CALL CLEAR 

2130 PRINT "ANZAHL DER EINGA 
BEELEMENTE :" 

2140 INPUT "==>"IN 

2150 PRINT : : :"EINGABEELEM 

ENTE!" 

2160 FOR 1 = 1 TO N 
2170 INPUT "==>":CV(I) 

2180 NEXT I 
2190 S=0 
2200 0=0 

2210 FOR 1=1 TO N 
2220 S=S+CV(I) 

2230 NEXT I 

2240 M=S/N 

2250 FOR 1=1 TO N 

2260 Q=Q+(CV(I)-M) A 2 

2270 NEXT I 

2280 V=Q/(N-1) 

2290 A=SQR(V) 

2300 CALL CLEAR 
2310 PRINT "MITTELWERT! "SM 
2320 PRINT : " VARIANZ: ",'V 
2330 PRINT : "STANDARTABW. : " 

5 A 

2340 print : : : ‘:"noch mal 

7 M 

2350 CALL KEY(0,KS,SK) 

2360 IF SK=0 THEN 2350 
2370 IF (KS=78)+(KS=1IO)THEN 
490 ELSE 2120 

2380 print ::::::::: 
: : : : : : : :"berechnen s 

TATISTISCHER KENNZAHLEN (VON 
O BIS 255)UND" 

2385 PRINT "ZEICHNEN EINER H 
AEUFIGKEITS-VERTEILUNG“ 


2390 

s=o 


2400 

S2=0 


2410 

MO=999 


2420 

M9=—999 


2430 

H1=0 


2440 

H2= 1 


2450 

:n 

INPUT "WIEVIEL WERTE 7 

2460 

FOR U=1 TO N 


2470 

INPUT "WERT : 

":FG(U) 

2475 

IF FG(U)>255 

THEN 2470 

2480 

NEXT U 


2490 

FOR 1=1 TO N 


2500 

S=S+FG(I) 
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2510 S2=S2+FG<I)~2 

2520 F <FG(I) )=F < FG <I)) +1 

2530 IF FG(I)>M9 THEN 2540 E 

LSE 2550 

2540 M9=FG(I) 

2550 IF FG(IXMO THEN 2560 E 
LSE 2570 
2560 MO=FG( I ) 

2570 NEXT I 

2580 M=S/N 

2590 FOR 1=1 TO N 

2600 H1=H1+(FG(I)-M) Ä 2 

2610 NEXT I 

2620 V=Hi/ < N- 1 ) 

2630 A=SQR(V) 

2640 FO = SQR<WN) 

2650 C = A /M 

2660 PRINT :"HAEUFIGKEITSVER 
TEILUNG": : 

2670 FOR K=MO TO M9 

2680 PRINT K,F <K) , ". " ?TAB(F< 

K ) + 21 ) ; *' * " 

2690 FOR H2=H2 TO (H2+F(K)-1 
) . 

2700 IF H2=(N+l)/2 THEN 2710 
ELSE 2720 
2710 M1=K 

2720 IF H2=N/2 THEN 2730 ELS 
E 2740 
2730 M1=K/2 

2740 IF H2=(N+2)/2 THEN 2750 
ELSE 2760 
2750 M1=M1+K/2 
2760 NEXT H2 
2770 NEXT K 
2780 S9=3/A*<M-M1) 

2790 PRINT :"ANZAHL SUMME QU 
.SUMME MITTEL" 

2800 M=INT<M*1000+.5)/lOOO 
2810 PRINT N;TAB(8);SJTAB<15 
);S25TAB<22 )sm 
2820 PRINT : :"MEDIAN..MAX. 

..MIN. .VARIANZ" 

2830 V=INT<V*1000+.5) /lOOO 
2840 PRINT MlJ TAB(8) 5 M9 jTAB( 
15)5MO;TAB<22)|V 


2850 PRINT :"ABWEI. FEHLER V 
AR-K. SCHIEFE" 

2860 A=INT<A*1000+.5)/lOOO 
2870 FO=INT < FO-XT 000+. 5)/lOOO 
2880 S9=INT(S9*1000+.5)/lOOO 
2890 C=INT<C*1000+.5)/lOOO 
2900 PRINT AJTAB(8)JFOiTAB(1 
5 >;c;tab<22);S9 
2910 PRINT : : :"NOCH MAL?" 

2920 S=0 
2930 K=0 

2940 CALL KEY(0,K,S) 

2950 IF S=0 THEN 2940 
2960 IF (K=78)+(K=l10)THEN 5 
40 ELSE 2380 
2970 END 


UNTERNEHMEN DELTA 

Dieses Programm macht den TI zu einem Schieß¬ 
stand. Nachdem das Programm gestartet ist, bewe¬ 
gen sich die verschiedensten Objekte abwechselnd 
über den Bildschirm. Mit Hilfe des Joysticks müs¬ 
sen die Flugzeuge, Autos, Vögel oder Wolken mit 
einem Fadenkreuz eingefangen und durch Drük- 
ken des Feuerknopfes abgeschossen werden. 

Je weniger Zeit, desto höher das Punktekonto. 

Thorsten Rauer 


Unternehmen Delta 
Thorsten Rauer, Beetstraße 64, 
4902 Bad Salzuflen 1 
Spiele 
TI-Basic 

Konsole, Joystick (1) 

6684 Bytes 
Gut 

Über den Bildschirm bewegen 
sich verschiedene'Objekte, die man mit einem Fa¬ 
denkreuz einfangen und abschießen muß. Leicht 
wird einem dies nicht gemacht, die\Objekte wei¬ 
chen ständig aus. 

Bemerkung: Ein hervorragendes Spiel für die Grund¬ 
version. Gute Bildschirmdarstellung und rasante. 
Geschwindigkeit. \ 


Programm: 

Autor: 

Kategorie: 

Sprache: 

Ben. Zubehör: 
Speicherbelegung: 
Optimierung: 
Kurzbeschreibung: 


4-Farben Printer-Plotter PP-A4, Centronics-Schnittstelle, DIN A4 699,— 
Slim Line Laufwerk 5,25”, 500 kByte - DS/DD 498,— 

Einbausatz für 2 Laufwerke in original Tl-Extension-Box m. Manual 95,— 
Disc-Steuerkarte, DD/DS bis zu 4 Laufwerken anschließbar 635,— 

NEUE PRODUKTE FÜR TI-99/4A 

Extended Basic mit deutschem Handbuch 239,50 

albs-Alltronic B. Schmidt ■ Postfach 1130 - 7136 Otisheim 


Grafik Extended Basic mit deutschem Handbuch 
32 k-RAM-Erweiterung, seitlich ansteckbar 
32 K-RAM-Erweiterung mit Centronics-Schnittst. 


Preise inkl. Mwst.. Info gratis. Ueferung gegen Nachnahme od. Vorauskasse 

■ Tel. (07041) 2747 • Telex 7263738 albs - 
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SU&Kaofiac* 


10 O REM******************** 


HO REM* * 
120 REM*UNTERNEHMEN DELTA* 
130 REM* Copyright by * 
140 REM* Thorsten Rauer * 
150 REM* ' * 
160 REM* Bearbeitet vom * 
170 REM* Team des * 
180 REM* Aktuell Verlages * 
190 REM* Muenchen * 
200 REM* * 
210 REM*Benoetigte Geraete* 
220 REM* TI99/4A Konsole * 
250 REM* Joystick (1) * 
260 REM* * 
270 REM* Speicherbelegung * 
280 REM* 6684 Bytes * 


290 REM******************** 

295 REM 

300 CALL CLEAR 

310 FÜR 1=1 TO 12 

320 CALL COLOR(I,2,1+4) 

330 NEXT I 

340 FRINT ".UNTERNEHMEN 

DELTA": : : : : 

350 PRINT ".VON THORSTEN 

rauer": 

360 PRINT "....ZUM STARTEN B 
ITTE DIE": :"....FEUER TASTE 
DRUECKEN " 

3 70 CALL KEY < 1 , K , S ) 

380 IF S=0 THEN 370 
390 CALL CLEAR 
400 RANDOMIZE 
410 CALL SCREEN < 9) 

420 RESTORE“ 1740 
430 FOR AA=1 TO 24 
440 READ Z,Z* 

450 CALL CHAR(Z,Z*) 

460- NEXT AA 

470 RESTORE 1800 

480 FOR AA=1 TO 9 

490 READ AB,AC,AD 

500 CALL COLOR(AB,AC,AD) 

510 NEXT AA 
520 RESTORE 1820 
530 CALL CLEAR 

540 CALL HCHAR<21,1, 107,28) 
550 CALL HCHAR(22, 1 , 130,96) 
560 FOR AA=1 TO 48 
570 READ AB,AC,AD 
580 CALL HCHAR(AB,AC,AD) 

590 NEXT AA 
600 RESTORE 1810 
610 READ A,B,C,E 



620 GOTO lllO ' - 

630 CALL J OYST(1,X,Y) 

640 IF <X=0)*<Y=0)THEN 680 
650 A=A+(Y/-4) 

660 B=B+ < X/4) 

670 C=C-1 

680 IF (A>24)+(A<1)+<B>32)+( 

B<1)THEN 740 

690 CALL GCHAR(A,B,XX) 

700 CALL HCHAR(A,B,104) 

710 CALL HCHAR<A,B,XX) 

720 CALL KEY <1,K,S) 

730 IF K=1S THEN 750 
740 RETURN 

750 IF X X = 112 THEN 1300 
760 IF X X= 113 THEN 1280 
770 IF XX=114 THEN 1320 
780 IF < XX=1 05)+( XX=106 ) THEN 
1240 

790 IF XX=138 THEN 1260 
800 CALL HCHAR(A,B,146) 

810 FOR BA=1 TO 30 STEP 5 
820 CALL SOUND(-500,-5,BA) 
830 CALL SOUND(-70, -6,BA-1) 
840 NEXT BA 
850 CALL HCHAR(A,B,XX) 

860 E=E-25 

870 RETURN 

880 RESTORE 1870 

890 GOTO 1030 

900 RESTORE 1900 

910 GOTO 1030 

920 RESTORE 1930 

930 GOTO 1030 

940 RESTORE 1940 

950 GOTO 1030 

960 RESTORE 1980 

970 GOTO 1030 

980 RESTORE 2030 

990 GOTO 1150 

lOOO RESTORE 2020 

1010 GOTO 1150 

1020 RESTORE 1950 

1030 READ AB,AC 

1040 FOR AA=1 TO AB 

1050 READ AD,AE - 

1060 CALL HCHAR(AD,AE,AC) 

1070 GOSUB 630 

1080 CALL HCHAR(AD,AE,32) 

1090 NEXT AA 

llOO C=C-20 

lllO GOSUB 1650 

1120 IF C<=0 THEN 1410 

1130 D=INT(RND*8+1) 

1140 ON D GOTO 880,920,940,9 
Oö, 1020,960, l'bOQ, 980 
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1150 READ AB,AC,AD,AE,6,H 
1160 FOR AA=1 TO AB 
1170 G=G+AD 
1180 H=H+AE 

1190 CALL HCHAR <G,H,AC) 

1200 GOSUB 630 

1210 CALL HCHAR <G,H,32) 

1220 NEXT AA 
1230 GOTO llOO 
1240 RESTORE 2040 
1250 GOTO 1330 
1260 RESTORE 2050 
-1270 GOTO 1330 
1280 RESTORE 2060 
1290 GOTO 1330 
1300 RESTORE 2070 
1310 GOTO 1330 

1320 RESTORE 2080 
1330 READ AB,AC,AD,AE 
1340 FOR CA=1 TO AB 
1350 READ AH 
1360 CALL HCHAR(A,B,AH) 

1370 CALL SOUND<-450,AC,CA*A 
D) 

1380 NEXT CA 

1390 E=E+AE-AA*10 

1400 GOTO 1110 

1410 CALL SOUND(500,500,O,53 

5,0) 

1420 RESTORE 2090 
1430 FOR AA=1 TO 4 
1440 READ A*, I , J 
1450 FOR AB= 1 TO LEN(A*) 

1460 CALL HCHAR(I,J-l+AB,ASC 
(SEG*(A*,AB,1))) 

1470 CALL SOUND(25,1IO,O,lOl 

0 , 0 ) 

1480 NEXT AB 
1490 NEXT AA 

1500 IF E>HS THEN 1510 ELSE 
1520 

1510 HS=E 

1520 FOR AA=1 TO LEN(STR*(HS 
) ) 

1530 CALL HCHAR(17,19+AA,ASC 
(SEG*(STR*(HS) ,AA,1) ) ) 

1540 CALL SOUND(150,700,O, 17 
25,0) 

1550 NEXT AA 

1560 CALL KEY ( O , K , S ) 

1570 IF-S=G THEN 1560 
1580 IF K=15 THEN 300 
1590 IF K=6 THEN 520 
1600 IF K=12 THEN 1630 
1610 CALL SOUNÖ(50,1IO,O) 


1620 GOTO 1560 
1630 CALL CLEAR 
1640 END 

1650 CALL HCHAR(23,13,130,6) 
1660 FOR 1=1 TO LEN(STR*(E)) 
1670 CALL HCHAR(23,12+1,ASC( 
SEG* ( STR* ( E ) ,1,1) ) ) 

1680 NEXT I 

1690 CALL HCHAR(23,25,130,6) 
1700 FOR 1=1 TO LEN(STR*(C)) 
1710 CALL HCHAR(23,24+1,ASC( 
SEG*(STR*(C),1,1))) 

1720 NEXT I 
1730 RETURN 

1740 DATA 96,OOOOOOO1OF1 F3F7 
F,97,001C7EFFFFFFFFFF,98,000 
C3FFFFFFFFFFF,99,OOOOOOEOFOF 
3FCFE 

1750 DATA lOO,7F7F3F0F03, 101 
,FFFFFFFFFF7E18,102,FFFFFFFF 
FF7J,103,FEFEFCF8F8F0E 
1760 DATA 104,181818E7E71818 
18,105,0003317FDF7D38,106,00 
C08C9EFBPECC,107,FFFF442211F 
FFFFF 

1770 DATA 145,000000100813,1 
46,000024183014,147,00522C18 
245224,148,442A52AD5CAA552A 
1780 DATA 112,OOF8EOFOF8BC9E 
OE,113,0000187EFF7E,1 14, 13IE 
9AFEFFFFAD52,120,387CFEFEFE7 
C38 

1790 DATA 108,FFFFFFFFFFFFFF 
FF,109,0103070F1F3F7FFF,130, 
42521084A4200909,138,0022550 
8 

1800 DATA 9, 16,8“, IO, 2,8, 11,9 
,8,12,11,8,13,13,4,14,5,8,1, 
2,8,15,2,8,4,2,11 
1810 DATA 12,16,150,0 
1820 DATA 2,3,96,2,4,97,2,5, 
93,2,6,99,2,30,120,3,3,100,3 
,4,101,3,5,102,3,6,103,3,24, 
96,3,25,97 

1830 DATA 3,26,98,3,27,99,4, 
14,96,4,15,97^4,16,98,4,17,9 
9,4,24,100,4,25,101,4,26,102 
,4,27,103 

1840 DATA 5,14,100,5,15,101, 
5,16,102,5,17,103,19,30,109, 
19,31,103,19,32,108,20,29,10 
9 

1850 DATA 20,30,108,20,31,10 
8,20,32,108,23,6,30,23,7,85, 
23,8,78,21,29,108,21,30,108, 
21,31,108,21,32,108 
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1860 DATA 23,9,75,23,10,84,2 
3,11,69,23,12,58,23,20,90,23 
,21,69,23,22,73,23,23,84,23, 
24,58 

1870 DATA 33,106,10,1,10,2,1 
0,3,10,4,11,5,12,6,13,7,14,8 
,15,9,15,10,15,11,15,12,15,1 

3,16,14 

1880 DATA 16,15,17,16,17,17, 

17,18,18,19,18,20,18,21,19,2 

2,19,23,20,24,20,25,20,26 

1890 DATA 20,27,19,28,19,29, 

18,29,17,30,16,31,16,32 

1900 DATA 34,105,5,32,6,31,7 

,30,8,29,9,29,9,28,9,27,9,26 

,10,25,10,24,10,23,9,22,10,2 

1,11,20,10,19 

1910 DATA 9,13,10,17,11,17,1 

I, 16,10,15,9,14,8,13,9,12,10 
,11,10,10,10,9 

1920 DATA 11,8,12,7,11,6,12, 

5,13,4,12,3,11,2,10,1 
1930 DATA 15,138,4,3,5,4,6,5 
, 7 , 6, 8 , 6 , 8 , 7 , 7 , 8 , 6 , 9, 7 , 10,6, 

II, 5, 12,4, 12,3, 13,2, 14,3, 15 
1940 DATA 14,138,5,26,6,25,7 
,24,7,23,8,22,7,21,8,20,7,19 
,6,19,5,20,4,19,3,18,2,17,3, 
16 

1950 DATA 4J,113,1,20,2,21,3 
,22,4,21,5,20,6,20,7,19,7,18 
,8, 18,9, 18, 10, 19, 11, 18, 12, 17 
, 13, 16 

1960 DATA 14,17,15,18,16,17, 

17.13.17.19.16.20.16.21.15.2 

2,14,23,14,24,14,25,13,26,14 
,27,13,28,12,29 

1970 DATA 13,30,14,30,15,29, 

16.28.15.27.14.28.13.29.12.3 
0,11,29,10,30,10,31,9,32 
1980 DATA 55,113,1,19,2,19,3 
,13,3,17,6,15,7,14,8,14,9,13 
,10,14,11,15,12,14,13,13,14, 
12,15,12 

1990 DATA 16,11,17,12,16,12, 

15.11.14.10.13.9.12.3.13.7.1 
4,6,15,6,16,7,17,8,18,7,19,6 
,13,5,17,4 

2000 DATA 16,3,16,3,17,4,18, 

5.19.6.13.6.17.6.16.7.15.8.1 

4.9.13.10.13.10.14.9.13.10.1 
2,9,11,8,11,7 

2010 DATA 10,6,10,7,9,6,8,5, 
3,4,8,2,9,2, 10,1 
2020 DATA 27,114,0,1,20,1 
2030 DATA 13,112,-1,-2,19,28 


2040 DATA 13,-7,2,800,145,14 

5.146.146.147.147.148.148.14 

7.146.146.145.32 

2050 DATA 10,-6,3,650,146,14 

6.147.147.148.146.146.145.14 

5.32 

2060 DATA 15,-7,2,650,145,14 

5.146.146.147.147.147.148.14 

8.147.147.146.145.145.32 
2070 DATA 13,-7,2,950,145,14 

5.146.146.147.147.148.148.14 

8.147.146.145.32 

2080 DATA 10,-5,3,250,145,14 

6.146.147.147.148.148.147.14 

6.32 

2090 DATA GAME OVER,9,12,PRE 
SS REDO OR BACK,11,7,PROC’D 
= ENDE,13,IO,RECORD IST :,17 


HeGa-Soft 

Software, Hardware und Literatur 
Postfach 1201 8044 Lohhof 

DEUTSCHES HANDBUCH 

TI 99/A(A) 

EDITOR /ASSEMBLER 



Das deutsche Handbuch 
zum TI Editor-Assembler 


3D L»1 Ö ,- 



PflCHVERJfiHD 

für 

DPÜ 




JOCHEN GERHARDT & BETTINA VAN MEGERN GbR 
HÖHENSTR.74 b, 4 Düsseldorf 1. TEL.:0211-776577,9-19 UHR 
oder 02107-4533, 10-18 UHR 
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lOO 

* 

REM 

,v v v _v v v v v v v v v v v y v V -V -V 
A aaaAaaAAAaaa A a a a a a 

HO 

* 

REM 

* 

PAC-MAC 

120 

* 

REM 

* 

COPYRIGHT BY 

130 

* 

REM 

* 

JOERN HILGER 

140 

* 

REM 

* 

BEARBEITET VOM 

150 

* 

REM 

** 

TEAM DES 

160 

* 

REM 

* 

AKTUELL VERLAGES 

170 

* 

REM 

* 

MUENCHEN 

180 

* 

REM 

*BENOETIGTE GERAETE 

190 

* 

REM 

* 

TI 99/4A KONSOLE 

200 

* 

REM 

* 

JOYSTICKS 

210 

* 

REM 

* 

DSK OD. KASSETTE 

220 

* 

REM 

* 


230 

* 

REM 

* 

SPEICHERBELEGUNG 

240 

* 

REM 

* 

4320 BYTES 

250 

* 

REM 

* 


260 

REM 

******************* 


* 

270 CALL CLEAR 
280 CALL SCREEN(2) 

290 PRINT ".PAC-MAC 


300 PRINT "..WRITTEN BY JOER 
N HILGER": 

310 PRINT "..COPYRIGHT BY J. 
C.HILGER" 

320 PRINT 

330 PRINT "...START MIT FEUE 
RKNOPF" 

340 CALL SCREEN<16) 

350 CALL KEY <1,QR,QT) 

360 CALL SOUND (500,110,2,-1, 
O) 

370 CALL SOUND <500,310,O, -1 , 
O) 

380 IF QT =1 THEN 32767 ELSE 
350 

390 L=3 

400 CALL CLEAR 

4 10 CALL COLOR<3,2, 1 1 ) 

420 CALL COLOR(4,2, II) 


430 CALL SCREEN(2) 

440 FÖR LKJ=9 TO 12 
450 CALL COLOR(LKJ, 16,2) 

460 NEXT LKJ 

470 FOR JHG=1 TO 8 

480 CALL COLOR < JHG ,2,2) 

490 NEXT J HG 

500 PRINT "CCCCCCCCCCACCCCCC 
ACCCCCCCCCC M . 

510 PRINJ "HAAACACAÄCACAAAAC 
ACAACACAAAH" 

520 PRINT "CCCCCACCCCCCCCCCC 
CCCCCACCCCC *• 

530 PRINT "AACAAACAAAACAAAAC 
AAAACAAACAA " 

540 PRINT "CCCCCCCCCCACCCCCC 
ACCCCCCCCCC *• 

550 PRINT ** C AAAC AC AAC AC AAAAC 
ACAACACAAAC" 

560 PRINT "CCCCCACCCCACACCAC 
ACCCCACCCCC" 

570 FRINT "CCCCCACCCCCC ACCAC 
CCCCCACCCCC" 

580 PRINT '* AAACAAC AAAAC AAAAC 
AAAACAACAAA" 

590 PRINT "CCCCCCCCCCACCCCCC 
ACCCCCCCCCC" 

600 PRINT "CAAACACAACACCCCCC 
ACAACACAAAC 41 

610 PRINT "CCCCCACCCCACAAAAC 
ACCCCACCCCC" 

620 PRINT "CCCCCACCCCCCCCCCC 
CCCCCACCC.CC " 

630 PRINT "AAACAACAAAACAAAAC 
AAAACAACAAA" 

640 PRINT "CCCCCCCCCCACCCCCC 
ACCCCCCCCCC" 

650 PRINT "HAAACACAACACCCCCC 
ACAACACAAAH" 

660 PRINT "CCCCCACCCCACAAAAC 
ACCCCACCCCC" 

670 PRINT "CCCCCACCCCCCCCCCC 
CCCCCACCCCC" 

680 print ::: 

690 CALL HCHAR(1,1,65,32) 

700 CALL HCHAF? <2, 1,65,32) 

710 CALL HCHAFl< 21,1,65,32 ) 
720 CALL HCHAR(22,1,65,32) 
730 CALL • VCHAR(1,1,65,22) 

740 CALL VCHAR(1,2,65,22) 

750 CALL VCHAR<1,31,65,22) 
760 CALL VCHAR(1,32,65,22) 
770 CALL CHAR(65,"FFFFFFFFFF 
FFFFFF") 

780 CALL CHAR(72,"007E7E7E7E 
7E7E00") 

790 CALL CHAR(66,"") 

800 CALL HCHAR(9, 16,66,2) 





810 CALL HCHAR(IO,16,66,2) 
820 CALL CHAR<67,”0000001818 
000000 ") 

830 CALL COLOR(5,11,14) 

840 CALL COLOR<6,13,14) 

850 CALL COLOR<7,2,14) 

860 E$="307C6EF8FE7C7C30" 

870 F$="0C3E761F7F3E3E0C" 

880 G*=ESs 
890 A=13 
900 B=16 

910 CALL SOUND<2500,300,9,-4 

, 0 ) 

920 K=INT (22-X-RND) +1 
930 Y= INT ( 32-X-RND ) + 1 
940 CALL HCHAR<K,Y,65) 

950 CALL CHAR<80,GS) 

960 CALL HCHAR<A,B,30) 

970 CALL KEY(1,CX,CY) 

980 IF CY=i THEN 1450 
990 CALL JOYST <1,X,Y) 
lOOO IF X=-4 THEN 1010 ELSE 
1030 

1010 G$=F$ 

1020 GOTO 1050 

1030 IF X=4 THEN 1040 ELSE 1 
050 

1040 G$=E$ 

1050- X=X / 4 
1060 Y=Y/-4 
1070 C=A +Y 
1080 D = B + X 

1090 CALL GCHAR(C,D,W) 

1100 CALL HCHAR<A,B,66) 
lllO IF W=65 THEN 890 
1120 IF W=67 THEN 1130 ELSE 
1150 - 

1130 CALL SOUND<100,300,3,-3 
. , 5 ) ' 

1140 P=P+10 

1150 IF W=72 THEN 1200 ELSE 
1160 - 
1160 A=A+Y 
1170 B=B-rX 

1180 CALL SOUND<100,-3,3) 
1190 GOTO 920 
1200 FOR J=1 TO 40 
1210 CALL J0YST<1,X,Y) 

1220 X=X/4 
1230 Y=Y/-4 

1240 IF X=1 THEN 1250 ELSE 1 
270 

1250 G$=E* 

1260 GOTO 1290 

1270 IF X=—1 THEN 1230 ELSE 

1290 

1280 G$=F$ 

1290 CALL HCHAR<A.B.66) 


1300 A=A+Y 
1310 B=B+X 

1320 IF A<3 THEN 1330 ELSE 1 
340 

1330 A=3 

1340 IF A >20 THEN 1350 ELSE 
1360 ; ' 

1350 A=20 

1360 IF B< 3 THEN 1370 ELSE 1 
380 . 

1370 B=3 

1380 IF B >30 THEN 1390 ELSE 
1400 

1390 B=30 

1400 CALL SOUND<100,110,O,-3 
,2,600,6) 

1410 CALL HCHAR<A,B,80) 



1420 CALL CHAR<80,G<£) 

1430 NEXT J 

1440 GOTO 920 

1450 FOR VX= 1 TO 22 

1460 FOR VY=1 TO 32 

1470 CALL GCHAR< VX ,OY,VB) 

1480 CALL SOUND<100,110,2,23 

4,5,500,3,-8,4) 

1490 IF VB = 67 THEN 1580 
1500 NEXT OY 
1510 NEXT VX 

1520 PRINT ".PPP super 

PPP" 

1530 P=P+1000 

1540 FOR KL=200 TO 500 STEP 
100 

1550 CALL SOUND<1000,KL,2) 
1560 NEXT KL 
1570 GOTO 400 
1580 L=L-1 

1590 PRINT “..PPP schad 

e PPP" 

1600 FOR JK=500 TO 200 STEP 
-100 

1610 CALL SOUND<1000,JK,2) 
1620 NEXT JK 

1630 IF L=0 THEN 1640 ELSE 4 
OO 

1640 CALL SCREEN <16) 

1650 PRINT "sie erreichten"? 
P?"punkte ." 

1660 FOR HGF=9 TO 12 
1670 CALL COLOR<HGF,16,2) 
1680 NEXT HGF 
1690 CALL COLOR<3,2,16) 

1700 CALL COLOR<4,2,16) 

1710 PRINT 

1720 INPUT "noch ein spiel": 
FG$ 

1730 IF FG$="j" THEN 32767 
1740 END 






SCHALTMODUL FÜR DIE Tl-K< 


Wie kann man mit dem TI 99 externe Geräte - konstante als das Takt- und 4 erscheinen also 

etwa solche aus Mutters Küche - „fernsteuern“? flop. Um überhaupt eine nacheinander unsere 

Nun, man erwerbe eine Speichererweiterung “1“ am Ausgang des 8 Bits. Da sie hinterein- 

und schließe das in einer vergangenen Ausgabe der Schieberegisters erschei- ander durch alle Ausgän- 

„TI-Revue“ beschriebene Ausgabemodi an... nen zu lassen, muß das ge geschoben werden, 

Für alle diejenigen Leser, welche (noch) nicht stolze Datenflop einen zweiten dauert es ca. 1,5 Sekun- 

Besitzer von 32 oder mehr KByte Prozessorram Piepser vom Rechner er- den (1,2 für Ex-Basic), 

sind, folgt hier die Beschreibung einer wesentlich halten — andernfalls: bis die Daten stabil an¬ 
preiswerteren Lösungsmöglichkeit. wenn der zweite Ton stehen. 

T ., . ....... , , . . . stummgeschaltet ist, Will man nun wirklich 

Leider stellt sich bei der ander hinausgejagt und im schieben IC 3 und IC 4 Haushaltsgeräte damit 

Entwicklung irgendwelcher Empfänger wieder in pa- eine “0“ durch. steuern, so reicht das auf 

Peripherie für den Texas rallel anliegende Daten ver- Am Ausgang von IC 3 Grund der unkritischen 

ein grundsätzliches Pro- wandelt. Nach ein paar 
blem: Der Rechner ver- Nachmittagen im Labor 
fügt — dies gilt zumindest war es dann vollbracht: 
für die reine Konsole - ein 8-Bit Ausgabe Modul 
über keine Möglichkeit, für TI-Basic zum Ta- 
den Datenbus gezielt an- schengeldpreis! 

zusprechen. Für unsere - 

Zwecke — gemeint ist der WIE MAN’S BAUT 

Aufbau einer „Schnitt- - 

stelle“ für alle Ausbau- Grundsätzlich benötigt 
stufen — fällt der Userport man nur den linken Teil 
des Computers somit aus. der Schaltung aus Bild 
Eine Lösung unter Benut- 1 - also bis zur gedachten 
zung des Kassetten-Inter- vertikalen Trennlinie 
faces wurde aus nahelie- A...B im Schaltplan. IC 1 
genden Gründen ebenfalls — ein Operationsverstär- 
verworfen. TI-Basic ver- ker - sorgt für den zur 
langt ja bei Benutzung Ansteuerung der TTL- 
eines Recorders eine in- ICs notwendigen Pegel 
tensive Rückkopplung mit des Tonsignals. Das ver- 
dem User - anstatt mehr- stärkte Signal geht über 
malig die „Enter“-Taste die Diode an die Eingänge 
zu drücken, könnten wir von IC 2, dessen beide 
das zu steuernde Gerät Timer als Monoflops ge- 
besser mit der Hand ein- schaltet sind. Eines der 
schalten.;. ' Flops erzeugt das Takt- 

Was letztlich bleibt, ist signal für die Schieben¬ 
der „Sound“-Ausgang an gister IC 3 und IC 4, das 
der Videobuchse des andere Monoflop gibt 

Computers. Die Vorteile den Schieberegistern an, 
liegen auf der Hand: kein ob das aktuelle Datenbit 
Eingriff in die Konsole hi oder lo ist. 
notwendig, wenig Hard- Wie erkennt nun die Schal¬ 
ware und anstatt teurer tung, ob ein bestimmtes 
Computerstecker ein billi- Bit 1 oder 0 sein soll*? 
ger DIN-Stöpsel. Bei einer “1“ sendet der 

Wie aber kann man mit Computer zwei Piepser 
den Soundgeneratofen et- von je 1ms Dauer. Bei 
was aus- oder einschalten? einer logischen “0“ auch 
Bei einem „Kanal“ ist - der zweite Piepser ist 
das kein Problem: Ton allerdings software- 
da — Gerät an; Ton weg — mäßig stummgeschaltet. 

Gerät aus. Was aber, wenn Beim ersten Piepser ge- 
man mehrere Geräte un- hen die Ausgänge der 
abhängig voneinander Flops beide auf (fast) 
schalten will? Dann ver- 5 Volt. Die Schieberegi- 
fährt man mit dem Ton- ster takten allerdings erst 
ausgang ganz einfach wie bei einer negativ gerichte- 
-mit einer „großen“ seriel- ten Eingangsflanke durch, 
len Schnittstelle: die Bits Das Datenmonoflop hat 
werden hübsch hinterein- nun eine kürzere Zeit- 
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HI-Impuls abgibt. In der Gleichspannung. Am un- schließt man die Relais 

Luxusversion hat man kritischsten ist es darum, wie in Bild 3b. direkt an 

dann noch IC 6. Dabei han- ein unabhängiges Netz- die Ausgänge von IC 3/4 

delt es sich um ein 8fach teil - siehe Bild 2 - auf- bzw. IC 6 an. Oft kann 

Speicherrlipflop — die zubauen. Damit vermei- man in Elektronikläden 

Daten werden nun erst det man unter Umständen preiswerte Relais für hohe 

Steuerzeiten vollständig bei beendeter Übertragung die Einsendung der Kon- Ströme als Surplus-Ware 

aus. Andere Geräte — auf den Ausgang gegeben. S ole nach Freising... bekommen. Man muß al- 

z.B. D/A-Wandler — be- 7TJM AUFBAU Hat man die Schaltung lerdings eine Treiberstufe 

nötigen einen Übernah- - aufgebaut, so sollte man nach Bild 3 c. vorschalten. 

meimpuls bei vollständig Grundsätzlich sind für sich spätestens jetzt über- Die Diode ist eine 1 n4148 

vorhandenen Daten am alle ICs Fassungen zu ver- legen, was man eigentlich der Transistor ein BC 107 ' 

Bus. Wer es braucht, kann wenden. Einzig winziges damit schalten und wal- oder für höhere Ströme in 

also noch einen Dezimal- Problem ist die Span- ten will. Es gibt z.B. im der Relaisspule ein Dar¬ 
zähler - IC 5 im Bild - nungsversorgung: Um die Elektronikhandel speziel- lington aus der BD Reihe 

nachschalten. Dieser ist Monoflops zu triggern, le Relais, die man direkt Für den Anfang genügt 

so verdrahtet, daß er im- brauchen wir eine zweite an TTL^ICs anschließen uns aber der Anschluß von 

mer nach der Übertragung Versorgungsspannung zwi- kann. Bei dieser - ziem- LEDs nach Bild 3 a. So 

eines Byte einen kurzen sehen etwa 12 und 20 Volt lieh teuren — Lösung kann man nämlich die 
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Schnittstelle recht einfach 
prüfen: Wenn wir die ICs 
in die Fassungen gesteckt 
und die Versorgung ein¬ 
geschaltet haben, so müß¬ 
ten wir durch Berührung 
des Einganges der Schal¬ 
tung die LEDs zum 
Flackern kriegen. Geht’s 
nicht, dann haben wir 
etwas falsch gemacht. 
Geht’s erstaunlicherweise 
doch, dann können wir 
uns überlegen, wo wir den 
Eingang der Schaltung 
anschließen. Das geht 



zum Beispiel am Kopf¬ 
hörerausgang — insoweit Zeile 10 ist notwendig, 
vorhanden — des Monitors, um den Input-Ton zu un- 
Eleganter ist der Einkauf terdrücken. Beim Pro¬ 
zweier handelsüblichen grammablauf geben wir 

DIN-AV-Buchsen, welche auf den Input-Befehl in 
wir dann gemäß Bild 3 d. Zeile 20 einen Binärstring 
miteinander verbinden. — etwa “01000100“ — 

In die eine Buchse kommt ein. Die eigentliche An- 
wie gewohnt der Modula- Steuerung der Schnittstel- 
tor, in die andere ein le wird in den Zeilen 30— 

— handelsübliches — Video- 70 vorgenommen. Hier 
kabel zum Computer. wird hintereinander jedes 




Jetzt wird alles eingeschal¬ 
tet und folgendes Pro¬ 
gramm eingegeben: 

10 CALL SOUND (500,880, 
30) 

20 INPUT BlN$ 

30FOR 1=1 to 8 
40 CALL SOUND (1,880,0) 

50 CALL SOUND (1,880,30- 
VAL(SEG$(BIN$,I,1))*30) 
60 CALL SOUND (10,880,30) 
70NEXT I 
80 GOTO 10 


Zeichen des Binärstrings 
überprüft und gemäß der 
Formel 30-Val(SegS(Bin$ 
,i,l))x30) bei einer “1“ ein 
Ton und bei einer “0“ 
eine Pause gesendet. 

In unserem Beispiel müßte 
also die zweite und die 
sechste LED aufleuchten. 
Dieser Wert bleibt an den 
Ausgängen von IC 3 und 
4 bzw. IC 6 erhalten, bis 
wir einen neuen Wert 
senden. 



IC 1 CA 3140 (Operations¬ 
verstärker) 

IC 2 NE 556 (Doppeltimer) 
IC 3, 4 2mal 74 LS 95 

(4-Bit- Schieberegister) 
C 1=1 uF 40 Volt Elko 
C2=330 nF 
C 3=220 nF 
C 4,5=47 nF 
R 1=10 kiloohm 


R 2=150 kiloohm 
R 3=2k2 

R 4,5=270 kiloohm 
D 1=1 N4148 o.ä. 


Stückliste zum Netzteil 


B 1= Brückengleichrichter 1,5 Amp 
Trafo (siehe Text) mit Wechsel¬ 
spannung sek. zwischen 
9 und 15 Volt, mindestens 
500 mA 
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ZU GUTER LETZT... 


...noch einige Anwen¬ 
dungsbeispiele und Tips. 
Zunächst zwei kurze 
Routinen zur Umwand¬ 
lung von Dezimalzahlen 
in Binärstrings und um¬ 
gekehrt: 

90 REM DEZ-BIN...A ist 
die umzuwandelnde Zahl 
100 Bl N$=” " 

110 FOR 1=7 TO 0 STEP-1 
120 N=-(A-2tl>=0) 

130 Bl N$=BIN$&STRS(n) 
140 A=A—(2N)x n 
150 NEXT I 
160 RETURN 
170 REM BlN-DEZ...BIN$ 
wird in die Zahl A 
gewandelt 
180 A=0 
190 FOR 1=1 TO 8 
200 A=A+(2t(8-l))xVAL 
(SEG$(BIN$, 1,1)) 

210 NEXT I 
220 RETURN 

Die Routinen erweisen 
sich vor allem dann als 
nützlich, wenn man auf 
speicherplatzsparende 
Weise möglichst viele feste 
Ansteuerwerte in ein 
Array aufnehmen will. 
Man kann so eine Binär¬ 
zahl Bin$ vom dezimalen 
Wert X als Integerwert 
speichern: 

X$(I) = CH R$(X) 


EINIGE 

BEISPIELE 


Tja, dann bleiben nur noch 
einige Anwendungsbeispie¬ 
le zu nennen: wie wär’s 
mit einem programmierba¬ 
ren Lauflicht für den 
Fetenkeller? Oder mit 
einer Alarmanlage oder 

— man steuert mit dem 
TI eines der billig bei 
Elektronikversendern 
erhältlichen „Movits“ 

— oder die Autorennbahn 
des kleinen Bruders. 

Alle genannten Beispiele 
betreffen Anwendungs¬ 
bereiche, bei denen es 
nicht auf die gemächliche 
Geschwindigkeit der 
Schaltung ankommt. Aber 
vielleicht fällt einem der 
Leser ja eine „erwachse¬ 
nere“ Anwendung der 
Ausgabeeinheit ein. 

Jürgen Heinzerling 


CALL LOAD ohne Risiko 

Oftmals hört man aben¬ 
teuerliche Geschichten, 
wonach verschiedene 
Programme oder Kopier¬ 
schutzmethoden in der 
Lage sein sollen, Monitore, 
Disksysteme und Com¬ 
puter zu zerstören. Beim 
TI 99/4A war auch schon 
das Gerücht zu verneh¬ 
men, daß CALL PEEK 
oder CALL LOAD auf be¬ 
stimmte Speicherbereiche 
zu Defekten führen kann. 
Im Allgemeinen kann man 
sagen: Kein Programm 
oder Kommando kann 
einen Computer nachhal¬ 
tig beschädigen oder zer¬ 
stören. Das Schlimmste 
was passieren kann ist, 
daß der Computer ab¬ 
stürzt oder sich aufhängt. 
Er weigert sich dann, 
irgendein Kommando 
von der Tastatur anzu¬ 
nehmen. Um wieder Kon¬ 
trolle über sein System 
zu erlangen, muß man die 
Anlage abschalten und an¬ 
schließend wieder von 
vorne beginnen. In diesem 
Fall ist natürlich jegliches 
Programm und der gesam¬ 
te Speicherinhalt verlo¬ 
ren. Bei Programmen, bei 
denen man damit rechnen 
muß, daß der Computer 
abstürzt, z.B. bei den er¬ 
sten Ablaufversuchen von 
Assembler-Programmen, 
sollte man das Programm 
auf jeden Fall vorher spei¬ 
chern. Beim TI 99/4A gibt 
es eigentlich nur eine ein¬ 
zige Situation, bei der 
längerfristig Bauteile stark 
belastet werden können: 
Bei Assembler-Program¬ 
men, wenn mehrere Be¬ 
triebssysteme von Periphe¬ 
riegeräten gleichzeitig ein¬ 
geschaltet werden. Zu er¬ 
kennen ist dieser Zustand 
daran, daß die Lämpchen 
in der P-Box von RS232- 
P-Code-und Disk-Control- 
ler-Karte gleichzeitig 
leuchten. Dann sollte die 
Konsole schnellstmöglich 
abgeschaltet werden, um 
Bauteile, die nicht 100%ig 
die Werte des Datenblattes 
erreichen, zu schonen. 
Aber dieser Fall ist selbst 
bei Assembler-Program¬ 
mierung nur durch ganz 
gezielte Befehle zu errei¬ 
chen, im Normalfall und 


ganz besonders im Basic 
bzw. Extended Basic be¬ 
steht keinerlei Gefahr, 
durch CALL PEEK oder 
CALL LOAD etwas zu 
zerstören. 

PIN-Belegung des 
Modulator-Ausganges 

Die Ausgänge der Buchse, 
an der der PAL-Modula- 
tor angeschlossen wird, 
sind in einigen der alten 
Schaltbilder von Texas 
Instruments falsch ange¬ 
geben. Da diese Buchse 
auch zum direkten An¬ 
schluß eines einfarbigen 
Monitors genutzt werden 
kann, hier die korrekten 
Anschlüsse: 

PIN 1: +12V geregelt 
PIN 2: Y-Signal des 

Videoausganges 
PIN 3: R-Y-Signal des 
Videoausganges 
PIN 4: B-Y-Signal des 
Videoausganges 
PIN 5: Tonsignal 
PIN 6: Masse 



Zum Anschluß eines mo¬ 
nochromen Monitors wird 
das Y-Signal (Video) und 
Masse benötigt. Besitzt 
der Monitor auch einen 
Tonverstärker, so ist die¬ 
ser mit dem Tonsignal zu 
speisen. 

Zur Vermeidung von 
Masseschleifen sollte die¬ 
ses Kabel abgeschirmt sein, 
aber nur am Monitor mit 
Masse verbunden werden. 


Das Video-Signal muß 
über ein 750hm-Kabel ge¬ 
führt werden. 

Der direkte Anschluß ei¬ 
nes Farbmonitors mit 
RGB-Eingang ist leider 
nicht möglich, hier müs¬ 
sen die Signale,Y, R-Y 
und B-Y erst entsprechend 
aufbereitet werden. 

Heiner Martin 


AND, OR, XOR, MIN 
und MAX für TI-Basic 

In der TI-Revue 2/84 las 
ich, wie die Funktionen 
MIN und MAX des Ex¬ 
tended Basic im TI-Basic 
nachvollzogen werden 
können. Die dort vorge¬ 
stellten, langen Routinen 
können aber noch weiter 
gekürzt werden: 

MAX: 

100 C=-B*(A<=B) 
-A*(B<A) 

110 RETURN 

und MIN: 

100 C=-A*(A<=B) 
-B*(B^A) 

110 RETURN 

Bei der Kürze dieser Un¬ 
terprogramme sollten sie 
aber jeweils direkt im 
Programm eingebaut 
werden, um nicht un¬ 
nötigen Speicherplatz zu 
verbrauchen. 

Nun noch zu AND, OR 
und XOR. Auch diese 
Extended Basic Funktio¬ 
nen können im TI-Basic 
einfach ri’achvollzogen 
werden: 

100 IF A=3 AND B=7 
THEN 190 
ergibt im TI-Basic 
100 IF (A=3)*(B=7) 
THEN 190 

100 IF A=3 OR B=7 
THEN 190 
ist im TI-Basic 
100 IF (A=3)+(B=7) 
THEN 190 

100 IF A=3 XOR B=7 
THEN 190 

kann man im TI-Basic 
schreiben als 
100 IF (A=3) - (B=7) 
THEN 190 

Wie man sehen kann, ist 
auch das TI-Basic eine 
mächtige Programmier¬ 
sprache. 

Ugo Zoppi 
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DER KLEINE MUNTERMACHER 


Eine kleine Hardwareerweiterung 
macht den langsamen TI 99/4A 
zum Rennwagen. 

DER KASTEN 

Die kleine Hardwareschaltung findet 
in einem Kunststoffkasten von 
100 mm x 50 mm x 25 mm Platz 
und besteht, wenn Sie das Gehäuse 
geöffnet haben, aus sehr wenigen 
Bausteinen. Auf der Platine finden 
sich zwei Widerstände, ein Chip 
vom Typ HM6116P-3, ein Speicher¬ 
baustein, und ein SN74LS138N. 

Ein kleiner Kippschalter wurde an 
der Gehäusestirnseite untergebracht. 
Der elektronische Aufbau birgt also 
weder Wunder noch technische 
Novation. Aber sinnreiche Details. 
Dieser kleine Kasten zeigt an beiden 
Längsseiten einen Peripheriebus. Mit 
dem einen Stecker können Sie damit 
Ihre Neuerwerbung an den System¬ 
bus Ihres TI anschließen und die 
andere Busseite für weitere Periphe¬ 
rie nutzen. Falls vorhanden. Die 
Stecker passen übrigens sauber an 
den TI-Bus, da klemmt oder wak- 
kelt nichts. Ebenfalls von sehr gu¬ 
ter Qualität ist das Kunststoffge- 
häuse. Es besteht aus zwei Hälften, 
die sehr stabil aussehen und mit vier 
starken Schrauben zusammenge¬ 
halten werden. Einen Sturz von der 
Tischplatte dürfte das Gehäuse 
wohl aushalten. Aber versuchen Sie 
bitte nicht, mit Ihren Füßen die 
Stabilitätsgrenze des Gehäuses zu 
ergründen. Die beiden Gehäusehälf¬ 
ten werden nicht einfach stumpf 
aufeinander gesetzt, sondern zei¬ 
gen Nut und Feder. Das zeugt von 
durchdachter Konstruktion. Derart 
verbundene Bauteile können nicht 
wackeln oder zueinander verrut¬ 
schen. Nur die Farbgebung der Ge¬ 
häuseteile läßt zu wünschen übrig. 
Grau in Grau ist die Devise. Ober¬ 
teil in Hellgrau Unterteil in Dunkel¬ 
grau. Aber Ihr TI soll ja auch kein 
buntes Kunstwerk sein. 

AUSSTATTUNG 

Das kleine Kästchen kommt natür¬ 
lich nicht alleine. In seiner Beglei¬ 
tung finden sich eine Kassette und 
ein kleines Handbuch. Klein ist et¬ 
was untertrieben, denn im Format 
DIN A4 läßt es sich schwer verlieren 
und mit 25 Seiten hat es schon 
recht viel zu lesen. 

Im Handbuch wird nicht nur be¬ 
schrieben, wie Sie Ihr kleines Zau¬ 
berkästchen anschließen müssen. 


Haben Sie das auch schon einmal erlebt: 

Sie haben eine ganz tolle Idee für ein Programm und bemerken beim 
Programmieren, daß Ihr Vorhaben ein Flop werden muß, 
da die notwendigen Routinen den Rechner viel zu langsam machen? 
Und dann ärgern Sie sich darüber, weil die Assemblerausrüstung 
für Ihren TI viel zu teuer ist? Das ist nun vorbei. 

Wir haben für Sie eine Hardwareschaltung zur Assemblerprogrammierung 
getestet, die zum einen sehr günstig zu kaufen ist 
und zum anderen nur das Extended Basic-Modul benötigt. 

Damit Sie uns richtig verstehen: den Cassettenrecorder brauchen Sie 
auch noch, denn irgendwo müssen Ihre Programme ja gespeichert 
werden. Sie haben richtig gelesen: Es wird kein Diskettenlaufwerk 
benötigt. Und jetzt in medias res. 


Sie werden in einem Kurzlehrgang 
in die Assemblerkürzel eingewiesen. 
Und zwar in alle, die auf dem TMS 
9900 lauffähig sind. Und das Ganze 
geschieht in deutscher Sprache. 
Obendrein findet sich ein kleines 
Beispielprogramm, das Ihnen den 
ersten Start leicht machen soll. 

Sie kommen aber in keinem Fall 
darum herum, sich selbst mit ande¬ 
rer Literatur zur Assemblerpro¬ 
grammierung zu beschäftigen. Und 
da gibt es mittlerweile einiges auf 
dem Büchermarkt. Einen entspre¬ 
chenden Vermerk mit Literatur¬ 
hinweis finden Sie ebenfalls im 
Handbuch. Ein, wie wir meinen, 
lobenswerter Zug. 

Die mitgelieferte Kassette hat 
dann endlich alles, was Sie sich 
schon lange gewünscht haben: 

— Line by Line-Assembler 

— Dissassembler 

— Kassettenladeroutine 

— Kassettenspeicherroutine 

ANWENDUNG 

Um Ihre Erweiterung in Betrieb 
nehmen zu können, genügt es, sie 
an den TI-Bus zu stecken. Dazu 
muß die Konsole ausgeschaltet sein. 
Der schon erwähnte Kippschalter 
soll in der linken Position stehen. 
Danach schalten Sie Ihr Gerät ein, 
rufen Ex-Basic auf und bringen den 
Kippschalter in die andere Position. 
Jetzt können Sie den Befehl CALL 
INIT eingeben. Nach Eingabe von 
NEW ist Ihr Rechner betriebsbereit. 
Wenn Sie jetzt den Line by Line- 
Assembler von Kassette laden und 
starten, können Sie sofort mit der 
Programmierung Ihrer Ideen begin¬ 
nen. Auf Wunsch erfolgt ein Pro- 
tokollausdruck über einen ange¬ 
schlossenen Drucker. Der Assembler 
ähnelt sehr stark dem vom Mini 
Mem, kann aber von der Geschwin¬ 
digkeit nicht mithalten und hat lei¬ 
der auch einige Einschränkungen, 


die nicht verschwiegert werden: 

— nur eine Zahl pro Data- 
AnWeisung zulässig 

— außer Indizierung keine Berech¬ 
nung im Operandenfeld 

— Programme sind auf eine be¬ 
stimmte Adresse festgelegt 

— keine vorgegebenen Definitionen 

— das S-Symbol als Synonym für 
den Wert des Programmzählers 
ist nicht zulässig. 

Mit diesen Einschränkungen läßt es 
sich aber ganz gut leben, zumal Sie 
mit diesem Assembler ein wirkungs¬ 
volles Instrument in der Hand ha¬ 
ben, das es auch erlaubt, direkte 
Manipulationen im VDP vorzuneh¬ 
men. Die gesamte Handhabung des 
Assemblers ist problemlos zu nen¬ 
nen und bereitet viel Spaß, wenn 
Sie sich erst einmal pingearbeitet 
haben. 

Eine weitere wertvolle Hilfe stellt 
der Disassembler dar, mit dem Sie 
z.B.: fremde Maschinenprogramme 
untersuchen können. 

Damit Ihre Programme nicht ver¬ 
loren gehen, können Sie alles auf 
Kassette abspeichern. Sie brauchen 
keine schwer verständlichen Befeh¬ 
le einzugeben, denn die Speicher¬ 
routine sucht sich die Namenstabel¬ 
le, Programmstartadresse und Länge 
des Programms selber. 

Genauso unkompliziert funktioniert 
das Wiedereinlesen Ihres Programms. 
Da kann wirklich nichts schief 
gehen. Dafür sorgt die Einleseroutine. 

ERKLÄRUNGEN 

Die auf Kassette mitgelieferten 
Programme befinden sich schon 
recht lange auf dem Markt. Daraus 
macht auch das Handbuch kein 
Geheimnis. Es handelt sich hierbei 
um Ex-Basic-Programme, die erst¬ 
malig 1983 veröffentlicht wurden 
und bis Dato nur mit der 32 KRAM 
liefen. Diese Erweiterung ist zwar 
überall käuflich zu erwerben, kostet 
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aber zwischen 450 und 650 DM. 

Die hier vorgestellte Erweiterung 
beläuft sich auf nur 149 DM. 

Selbst das Mini Mem, bisher der 
günstigste Einstieg in die Welt der 
Maschinensprache, kann da nicht 
mithalten. Falls Sie überhaupt 
noch irgendwo ein solches Modul 
erwerben können. 

Diese kleine Hardwareschaltung 
läßt uns aufatmen. Der TI ist noch 
iange nicht tot. Jedenfalls solange 
nicht, wie solch gute Hardware' 
auf den Markt dringt und auch in 
großen Stückzahlen verfügbar ist. 
Die Produktion läuft auf vollen 
Touren und wer sich solch ein 
Gerät zulegen will, der sei an die 
Firma RADIX Bürotechnik in 
Hamburg verwiesen. Sie werden 
mit Sicherheit nicht enttäuscht 
sein. Denn diese Hardware stellt 
eine echte Alternative zur Speicher¬ 
erweiterung oder dem fast nicht 
mehr zu bekommenden Mini Mem 
dar, hat fast den gleichen Befehls¬ 
satz, ist billiger und sehr einfach 
ZU bedienen. Klaus Weidemann 


ONLY 

FOR 

CLUBS 


HALLO TI-USER CLUBS 


Hier ist Eure Seite, auf 
der Ihr Eure Clubaktivi¬ 
täten bekannt machen 
könnt. Aber auch alle 
diejenigen, die einen 
Club gründen wollen, 
können sich hier zu Wort 
melden. 


Beginnen wollen wir heu¬ 
te mit einem Aufruf des 
Tl-Computer e. V. Aachen 
der sicherlich etwas stark 
nach Mitgliederwerbung 
klingt, aber doch auch 
interessante Anregungen 
en thält: 


Wir, der Tl-Computere.V. 
mit Sitz in Aachen, wol¬ 
len allen auf dem Land 
oder in der Stadt alleinge¬ 
lassenen Usern den Kon¬ 
takt anbieten. Wir haben 
eine Vereinszeitschrift, 
Arbeitskreise, die auch 
telefonisch und schriftlich 
auswärtigen Usern offen¬ 
stehen, um Hard- und 
Softwareprobleme zu lö¬ 
sen und viele Informatio¬ 
nen aus erster Hand. 

Wir sind ein vom Finanz¬ 
amt als gemeinnützig an¬ 
erkannter und beim 
Amtsgericht eingetrage¬ 
ner Verein und verstehen 
uns als Dachverband der 
TI99/4A User und User- 
Clubs. Wir pflegen Kon¬ 
takte zu anderen Organi¬ 
sationen im In- und Aus¬ 
land.und unsere Vereins¬ 
zeitschrift wird als Infor¬ 
mation an Anfragende 
sogar direkt von Texas 
Instruments Deutschland 
weitergegeben. Solltet 
Ihr Kontakt mit uns su¬ 
chen, dann fordert doch 
gegen Beilage des Rück¬ 
portos in Höhe von 1,20 
DM unsere neueste Ver¬ 
einszeitschrift als Infor¬ 
mation an. 

Natürlich könnt Ihr auch 
bei uns anrufen, nämlich 
bei unserem Vorsitzen¬ 
den Hartmut Dirks, Ap- 
partment 312, Hans- 
Böckler-Allee 155, 5100 
Aachen, Telefon-Nr.: 
0241-87 22 05. 
TI-COMPUTER 
Club Aachen 

~k 

Ein weiterer TI-User-Club , 
den wir heute vor st eilen 
wollen, hat seinen Sitz 
in Ulm/Donau: 

Der Tl-User Club Ulm 
trifft sich in ca. 6wöchi- 
gem Abstand im Schu¬ 
lungsraum eines örtlichen 
Computer-Fachgeschäftes 
. Stand zu Beginn der Club¬ 
aktivitäten der gegenseiti¬ 
ge Austausch von Bezugs¬ 
quellen der benötigten 
Erweiterungen im Vorder¬ 
grund, TI hatte ja gerade 
» die Produktionseinstel¬ 
lung bekannt gegeben, so 
werden heute auf den 
Treffen von Programm¬ 
fragen bis hin zu Hard¬ 
wareentwicklungen alle 


Themen besprochen. Der 
Tl-User Club Ulm ist nur 
regional tätig, dank der 
Verbindungen einiger 
Mitglieder sind Kontakte 
zu anderen Clubs vorhan¬ 
den. Wer Interesse hat 
und im Großraum Ulm 
wohnt, wendet sich bitte 
schriftlich an die folgen- . 
de Kontaktadresse. Er 
wird dann zum nächsten 
Treffen eingeladen: 

Heiko Liebald, Eichen¬ 
weg 7, 7914 Pfaffenhofen. 

'k 

Langsam steigt nun auch 
die Anzahl der Tl-User, 
die das notwendige Zu¬ 
behör zur Datenfernüber¬ 
tragung besitzen. Die Fa. 
Jochen Gerhardt u. 

Bettina von Megern, 
Höhenstr. 74b, 4000 Düs¬ 
seldorf möchte diesen 
Usern helfen und eine 
Liste mit Namen und Te¬ 
lefonnummern der mit 
DFÜ arbeitenden TI- 
User erstellen. Wer in die¬ 
se Liste aufgenommen 
werden will, kann sich an 
die genannte Adresse 
wenden. 

k 

Zu guter Letzt für heute 
noch eine gute Nachricht 
für alle User-Clubs: 

Texas Instruments USA 
hat im letzten Herbst ein 
sogenanntes Care-Package 
an alle dort bekannten 
User-Clubs vergeben, die 
dieses Ihren Mitgliedern 
kostenlos zur Verfügung\ 
stellen können. Diese 
Care-Package umfaßt 4 
Disketten Software und 
beinhaltet eine Single- 
Step Debugger, neue Dis¬ 
kettenfiles für die Module 
Multiplan und Tl-Writer 
(letztere sind aber hier in 
Deutschland uninteres¬ 
sant, wo noch die TI- 
Writer Version 2.0 auf 
, den Markt gekommen ist) 
und den Quellcode des 
TI-Forth. Einige der 
hiesigen User-Clubs konn¬ 
ten dieses Care-Package 
■ zwischenzeitlich aus den 
USA erhalten. User-Clubs, 
die dieses Care-Package 
noch nicht erhalten ha¬ 
ben, sollten sich schnell¬ 
stens an Texas Instru¬ 
ments ggf. in die USA 
wenden. 
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SERVICE 


WISSENSWERTES 

FÜR 

DISKETTEN- 
FREUNDE 


Die Disk ist, wie jeder¬ 
mann weiß, eine feine, 
runde Sache. Deshalb hat¬ 
te ich mir noch rechtzeitig 
eine TI-Peripherie-Box be¬ 
sorgt, einschließlich eines 
eingebauten Diskettenlauf¬ 
werkes. Mit der gehörigen 
Portion Begeisterung 
stürzte ich mich dann auf 
die Tastatur — doch schon 
das Einführungsprogramm 
auf Manual-Seite 29 der 
PHP 1240 war eine Ent¬ 
täuschung. Auch das Dis- 
ketten-Katalog-Beispiel 
auf Seite 39 wollte nicht 
laufen. Nein, das Heft 
enthält leider erhebliche 
Fehler. Und überdies 
reicht diese Gebrauchsan¬ 
leitung für blutige An¬ 
fänger kaum aus. 

Da bleiben manche Fra¬ 
gen offen. Eine zum Bei¬ 
spiel, ob man die EOF- 
Funktion bei der Datei¬ 
bildung gesondert einge¬ 
ben muß. Erst wer’s aus¬ 
probiert stellt fest: sie 
wird automatisch gene¬ 
riert. 

IF EOF (Dateinummer) 
THENCLOSE 

^ Dateinummer 
entpuppt sich damit als 
wunderschöne Möglich¬ 
keit, Datensätze aus ei¬ 
ner Datei zu lesen ohne 
das Dateiende zu über¬ 
schreiten. Will man die 
Sätze dabei zählen, so fügt 
man einfach einen Zähler 
“Z=Z+1“ hinter EOF ein, 
muß diesen aber vor Be¬ 


ginn auf Null setzen, da¬ 
mit die Satzzahl stimmt. 
EOF vermeidet jedenfalls 
zuverlässig, über das Datei¬ 
ende hinaus zu lesen, was 
ansonsten unweigerlich 
zu ERROR 25 und Pro¬ 
grammabbruch führt. Was 
hat mich diese Fehleran¬ 
zeige schon geärgert! 

Dabei hatte ich zumeist 
„nur“ vergessen, die Da¬ 
tei rechtzeitig mit 
RESTORE ^ Dateinum¬ 
mer in die Ausgangslage 
zurück zu versetzen. 

Zu den Dateien selbst 
bringt die Betriebsanlei¬ 
tung die allernötigsten 
Angaben. Der Unterschied 
in der Dateiorganisation 
zwischen SEQUENTIAL 
und RELATIVE, zwei 
Tl-spezifischen Benen¬ 
nungen, wird ausreichend 
erklärt. SEQUENTIAL, 
in der Literatur auch als 
„seriell“ bezeichnet, be¬ 
deutet bekanntlich „iri 
einer Folge aufgezeich¬ 
net“, so wie dies bei Mu¬ 
sikstücken auf Tonbän¬ 
dern geschieht. Der ein¬ 
zelne Teil einer Datei, 
ein Datensatz zum Bei¬ 
spiel, kann bei dieser Auf¬ 
zeichnungsweise nicht 
gesondert abgerufen wer¬ 
den; die Datei läuft nur 
als ganzes in einem Stück 
OUT oder IN. RELATIVE 
hingegen heißt nichts an¬ 
deres als wahlweiser Zu¬ 
griff, Random access. 


also beliebiger Zugriff auf 
jeden Datensatz oder je¬ 
des Datenfeld einzeln. 
OPEN-Modus, Datei- und 
Satztyp gehen aus dem 
Text der Beschreibung 
einigermaßen verständ¬ 
lich hervor. Nur bei der 
im OPEN-Modus nach 
UPDATE, INPUT usw. 
möglichen Zahlenangabe 
muß man wissen, daß die¬ 
se die Anzahl der Daten¬ 
sätze für die Datei reser¬ 
viert. Und begrenzt! 

Was jedoch nicht in der 
Betriebsanleitung steht, 
ist die Tatsache, daß die 
Dateiadressierung im 
OPEN-Befehl ohne¬ 
weiteres auch eine nu¬ 
merische Variable wie 
DATNR akzeptiert, die 
im gegebenen Fall dann 
mit der entsprechenden 
Zahl aufgefüllt wird. Das¬ 
selbe gilt für eine String¬ 
variable im Dateititel 
wie “DSK1 . TITELS“ . 
Nimmt das Disketten¬ 
system beim soundsoviel¬ 
ten Versuch den OPEN- 
Befehl nicht mehr an, so 
ist meist nur eine klitze¬ 
kleine Abweichung zum 
vorangegangenen ÖPEN- 
Statement schuld. Löscht 
man die vorhergehende 
Datei beim Experimentie¬ 
ren nicht mit dem Befehl 
DELETE “DSK1.BLA¬ 
BLABLA“, erweist es 
sich bei mehreren Dateien 
als nützlich, ein CALL- 
Unterprogramm OPEN 
zu verwenden. Zum 
Beispiel 
SUB OPEN 
(Dateinummer) 
OPENLDateinummer: 
"DSK1.BLABLABLA"; 
RELATIVE, INTERNAL 
SUBEND 

das mit CALL OPEN 
(Dateinummer) aufgeru¬ 
fen wird. Die Variable 
„Dateinummer“ ist dann 
natürlich mit der konkre¬ 
ten Zahl zu füttern. Die¬ 
ser Vorteil spart beson¬ 
ders bei größeren Arbeits¬ 
programmen Zeilen und 
vermeidet überdies 
Fehler. 

Ob nun SEQUENTIAL, 
FIXED oder RELATIVE, 
die Anzahl der verzeich- 
neten Sätze gehört bei 
Dateien mit fester Satz¬ 
länge in den O-Record 


unmittelbar nach dem 
OPEN-Statement 

PRINT+Dateinummer: 
Datensatzzahl 
Der Inhalt der Datensätze 
wird dann mit 

FOR 1=1 TO Daten¬ 
zahl :: PRINTfDatei- 
nummer:A$,B$ 

:: NEXTI 

in die Datei eingeschrie¬ 
ben. Ohne Schleife be¬ 
wegt sich nämlich nichts. 
Mit dem Programmteü 
INPUTLDateinummer: 
Datensatzzahl :: FOR 
1=1 TO Datensatzzahl 
:: INPUTTDateinum- 
mer:A$,B$ :: NEXTI 
können die Datensätze 
jederzeit wieder herausge¬ 
lesen werden, wobei die 
Bezeichnung der String¬ 
variablen keine Rolle 
spielt. Lesen darf man 
also mit einer völlig ande¬ 
ren Variablenbezeichnung 
als Eingeben. Dies gilt 
sinngemäß natürlich auch 
für numerische Variable. 
Eine an bereits aufgezeich¬ 
nete Sätze anschließende 
Ausgabe. z.B. “FOR 1= 

25 TO ENDE :: PRINTE 
Dateinummer:A$,B$ :: 
NEXT I“ funktioniert nur 
bei mit APPEND eröffne- 
ten sequentiellen Dateien 
variabler Satzlänge. Bei 
einer RELATIVE-Datei 
muß es hingegen heißen: 
FOR 1=25 TO ENDE:: 
PRINT+Dateinummer, 
REC I:A$,B$: :NEXTI 
Bitte dabei das CLOSE4 
Dateinummer nicht ver¬ 
gessen. Mit REC kann 
selbstverständlich auch 
jeder beliebige Datensatz 
adressiert und herausge¬ 
holt werden. Das geht 
.auch dann, wenn eine 
RELATIVE-Datei in ei¬ 
nem Stück ohne REC auf¬ 
gebaut worden ist. Die 
Funktion REC(Datei- 
nummer) liefert übrigens 
ganz bequem auch die 
Nummer des nächsten 
Datensatzes, wobei die 
Sätze natürlich mit 0 be¬ 
ginnen. So zeigt 

FOR 1=1 TO Daten¬ 
satzzahl: :INPUT4 
Dateinummer: A$,B$ 
PRINT REC (Datei¬ 
nummer);”) ”;A$,B$ 

:: NEXTI 

die einzelnen Datensätze 
mit der jeweils zugehöri- 
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VERSTECKTE 
TESTROUTINEN 
IN TI-MODULEN 


gen Satznummer auf dem 
Bildschirm an. 

Was den zwischen den 
einzelnen Datenfeldern 
notwendigen Trennsepa¬ 
rator “,“ (z.B. A$J3$) be¬ 
trifft, kann man bei 
INTERNAL-Dateien die 
ganze mühsam erlernte 
Stellenwertigkeit der 
Druckzeichen für PRINT 
und DISPLAY, wie 
und oder getrost 
vergessen. Hier genügt 
eindeutig das Komma 
zwischen A$ und B$. 
völlig anders wird dies 
bei Dateien im Dis¬ 
play-Format gehand- 
habt. 

Selbst innerhalb eines ge¬ 
speicherten Strings steu¬ 
ern Satzzeichen die DIS- 
PLAY-Ausgabe. Um diese 
unerwünschte Wirkung zu 
vermeiden, steht im Ex- 
tended BASIC der Befehl 
LINPUT zur Verfügung, 
der anstelle von INPUT 
in Verbindung mit 4Datei- 
nummer auch bei Disket¬ 
ten angewendet werden 
kann. Bei X-Basic sind 
übrigens auch die Zeilen 
bei Diskettenprogram¬ 
men mit dem Zeichen 

ohne jede Einschrän¬ 
kung voll ausnutzbar-. 

Beim Aufbau einer Out¬ 
put-Datei empfiehlt sich 
als Kontrolle, ob der letz¬ 
te Datensatz auch wirk¬ 
lich aufgezeichnet ist, die¬ 
sen mit INPUT, REC 
(letzter Datensatz) zu le¬ 
sen und mit dem entspre¬ 
chenden Satz des Arrays 
im Speicher zu vergleichen. 
INPUTTDateinummer, 
REC (letzter Daten¬ 
satz) :X$ 

IF X$=A$(letzter Daten¬ 
satz) THEN PRINT 
“Aufzeichnung o.k.“ 
wobei A$ die Stringvariab¬ 
le des Arrays sein soll. 

Den Inhalt der Disketten 
kann man bei Bedarf aus 
dem Katalogeintrag wun¬ 
derschön lesen. 

OPEN41 :“DSK1.“, 
INPUT, RELATIVE, 
INTERNAL 
INPUT j=!l :A$,J,J,K 
bringt aus dem O-Sektor 
der Diskette den Disk-Na¬ 
men ans Tageslicht, wo¬ 
bei J-K die Anzahl der 
noch verfügbaren Sekto¬ 
ren anzeigt. 


FOR SCHLEIFER TO 
127::INPUT41:A$, 

J,J,K 

IF LEN(A$)=0 THEN 
CLOSE41:: PRINT A$ 
:P,K::NEXT Schleife 
holt unter A$ den Datei¬ 
namen hervor, P gibt den 
Dateityp an (s. Gebrauchs¬ 
anleitung) und K nennt 
die Gesamtzahl der Sek¬ 
toren der Datei. Bei meh¬ 
reren aufeinanderfolgen¬ 
den Dateien hat man da¬ 
mit die Möglichkeit die 
Dateinummer für das 
OPEN-Statement zu ge¬ 
winnen, wenn man diese 
Nummer in den Datei¬ 
namen hineinschreibt. 

Falls also der String A$ 
z.B. “5,-Datei“ lautet, 
schneidet man mit SEG$ 
(A$( 1,1)) die “5” heraus, 
wandelt mit VAL in den 
numerischen Wert um 
(Dateinummer=VAL 
(SEG$(A$(1,1))) und eröff¬ 
net mit der auf diese ele¬ 
gante Weise gewonnenen 
Dateinummer. Für um¬ 
fangreiche Datei- und 
Textverarbeitungspro¬ 
gramme ungemein wich¬ 
tig, weil die Aufteilung 
der Datenmengen in 
Futterportionen, die der 
Speicher frißt, die Weiter¬ 
verarbeitung in etlichen 
Fällen erheblich erleich¬ 
tert. Aber VAL-Umwand- 
lung nicht vergessen! 

Um unliebsame Pro¬ 
grammabstürze infolge 
klitzekleiner Fehlerchen 
bei der Arbeit mit Dis¬ 
ketten auszuschalten, 
sollte man bei größeren 
Arbeitsprogrammen den 
Befehl ON ERROR 
GOTO... einbauen und 
mit CALL ERR den Feh¬ 
ler abfragen. Ein Beispiel 
für die Diskettennutzung 
enthält 

“99 Spezial“ (Freising: 
fl 1984). Alma Peschetz, 
die Autorin, versteht ihre 
Kunst auf raffinierte 
Weise. 

Was, das haben Sie alles 
schon selber herausgefun¬ 
den? Ich gratuliere! 

Sollten Sie aber nicht, 
dann kann ich Ihnen viel¬ 
leicht doch einige Stunden 
eigener, bitterer Fehler- 
Erfahrungen ersparen. 

Peter Grimm 


Bei der Entwicklung von 
Programmen hat Texas 
Instruments Testroutinen 
mit in die Programme 
eingebaut, um so die ein¬ 
wandfreie Funktion des 
Programms feststellen 
zu können. 

In manchen Modulen las¬ 
sen sich diese Testfunk¬ 
tionen durch Drücken 
bestimmter Tastenfolgen 
aufrufen. 

Möchte man von dem 
Modul “MUNCH MAN“ 
die Testfunktionen be¬ 
nutzen, so muß man so¬ 
fort bei Erscheinen des 
Titelbildes die SHIFT- 
Taste drücken und da¬ 
bei nacheinander die 
Tasten 8 3 8, <?der *//* 
betätigen. Gleich dar¬ 
auf erscheint ein neues 
Büd und die Abfrage 
RND(0-2):. Hier kann 
eingegeben werden, wel¬ 
che Runde man spielen 
möchte. Hat man eine 


schwindigkeit läßt sich 
hier einstellen, langsam 
oder schnell. Danach läßt 
sich wie beim “MUNCH 
MAN“ das Anfangsbild 
auswählen. Es erscheint 
SCREEN(00-40). Hat 
man zwei Zahlen eingege¬ 
ben, so wird das Titelbild 
gleich darauf wieder an¬ 
gezeigt. 

Ebenso kann bei dem 
Modul “MOON MINE“ 
verfahren werden. 

Der Schwierigkeitsgrad, 
LEVEL(00-59), ist hier 
die erste Abfrage, die an¬ 
gezeigt wird, und nach 
Eingabe zweier Zahlen 
kann man sich aussuchen, 
wieviele MOON MINERS 
man haben möchte. Auf 
dem Bildschirm steht da¬ 
zu MOON MINERS( 1-9). 
Lediglich mit dem Aus¬ 
lösen der SHIFT 8 Taste 
läßt sich bei dem Modul 
HOPPER der Testmodus 
aktivieren. Es erscheint 
jedoch nur eine Abfrage, 
ROUND(0-9). Man kann 
sich nun eine der 10 Run¬ 


gewählt, so erscheint so¬ 
fort darauf die zweite 
Abfrage, SCN(0-19). 

SCN steht für screen. Man 
hat jetzt die Wahl, zwi¬ 
schen den 20 verschiede¬ 
nen Runden eine auszu¬ 
suchen. Schließlich er¬ 
scheint zuletzt noch die 
Abfrage; MM(l-9), wievie¬ 
le “MUNCH MEN“ man 
haben möchte; es können 
maximal 9 sein. 

Auch läßt sich mit SHIFT 
8 3 8, während das Titel¬ 
bild zu sehen ist, bei dem 
Invadermodul der Test¬ 
modus aufrufen. Es er¬ 
scheint die Frage SLOW 
SPEED(Y/N). Die Ge- 

45 


den aussuchen, mit der 
man beginnen oder trai¬ 
nieren möchte. 

Bei der Eingabe der Test¬ 
werte ist der Cursor und 
das, was man eingibt, 
nicht zu sehen. Hat man 
einen Testmodus aktiviert, 
so wird dieser durch TEST, 
was anstelle von HIGH- 
SCORE erscheint, ange¬ 
zeigt. 

Für Besitzer der hier ge¬ 
nannten Module ist der 
Testmodus sicher nützlich. 

P. Coates 




BUNDESLIGA 


Mit diesem Programm können Sie sich Ihre eigene 
Tabelle erstellen und auf Kassette abspeichern. Ohne 
Änderungen am Programm können Sie dieses auch für 
andere Vereine und Sportarten verwenden. 

Das Programm ist sehr komfortabel menügesteuert, 
sodaß Sie beim Erstellen der Tabelle keine Schwierig¬ 
keiten haben werden. R. Bitter 


********************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Bandesligatabelle * 
Copyright by * 
R. Bitter 


Bearbeitet vom 
Team des 

Aktuell Verlages 
Muenchen 


* Benoetigte Geraete * 

* TI99/4A Konsole * 
Ext. Basic 

Kassettenrekorder 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
270 
280 
290 
295 

300 CALL CLEAR :: FOR 1=1 TO 
9 :: CALL C0L0R(I,2,16):: N 
EXT I :: CALL SCREEN(6):: CA 
LL CHAR<104,RPT$("F",16)):: 
CALL COLOR(10,16,16) 

310 DIM V$(20),PP(20),MP(20) 

,TG(20),TE(20) 

320 ON WARNING NEXT :: CALL 
HCHAR(1,1,104,768):: CALL CL 
EAR 

330 DISPLAY AT<2,6):"FUSSBAL 
LBUNDESLIGA" 

340 DISPLAY AT(3,1):"-- 


Speicherbelegung 
4060 Bytes 


********************** 


350 DISPLAY AT(5,6):"BITTE W 
AEHLEN SIE!" 

360 DISPLAY AT(8,6):"1=>VERE 
INE EINGEBEN" 

370 DISPLAY AT(10,6):"2=>TAB 
ELLE EINLESEN" 

380 DISPLAY AT(12,6):"3=>SPI 
ELTAG EINGEBEN" 

390 DISPLAY AT(14,6):"4=>TAB 
ELLE AUSGEBEN" 

400 DISPLAY AT(16,6):"5= >TAB 
ELLE EINGEBEN" 

410 DISPLAY AT(18,6):"6=>TAB 
ELLE SPEICHERN" 

420 DISPLAY AT(20,6):"7=>PR0 
GRAMMENDE" 

430 DISPLAY AT(24,2):"BITTE 
KENNZIFFER EINGEBEN" 

440 CALL KEY(0,K,S):: IF S=0 
THEN 440 

450 IF K-48C1 OR K-48>7 THEN 
440 

460 ON K-48 GOTO 470,570,670 

,830,1340,1580,1680 

470 CALL CLEAR 

480 DISPLAY AT(2,1):"BITTE A 

NZAHL DER VEREINE?" 

490 ACCEPT AT(2,27)BEEP:Z 
500 FOR J=1 TO Z 
510 DISPLAY AT(7,1):USING "# 
-:J :: DISPLAY AT(7,2):".VER 
EINSNAME" 

520 DISPLAY AT(8,1):"- 


530 ACCEPT AT(11,1)BEEP:A$ 
540 V$(J)=A$ * 

550 NEXT J 

560 GOTO 320 

570 CALL CLEAR 

580 DISPLAY AT(10,7):"TABELL 

E EINLESEN" 

590 FOR 1=1 TO 300 :: NEXT I 
600 OPEN #1:"CS1",SEQUENTIAL 
,INTERNAL,INPUT ,FIXED 120 







610 INPUT #1:2 

620 FOR J=1 TO Z 

630 INPUT #1:V$<J),PP(J),MP< 

J),TG(J),TE(J) 

640 NEXT J 
650 CLOSE #1 
660 GOTO 320 
670 CALL CLEAR 

680 DISPLAY AT(10,6):"SPIELT 

AG EINGEBEN" :: FOR 1=1 TO 3 

00 :: NEXT I 

690 CALL CLEAR 

700 FOR J=1 TO Z 

710 DISPLAY AT(10,1):V$(J) 

720 DISPLAY AT(11,1):"- 


730 DISPLAY AT(23,1):"VEREIN 
SPIELFREI BITTE <W>" :: DIS 
PLAY AT(24,4):"SONST BITTE L 
EERTASTE" 

740 CALL KEY(0,K,S):: IF S=0 
THEN 740 

750 IF K=87 OR K=119 THEN 81 
0 ELSE 760 

760 DISPLAY AT(13,1):"TORE G 

eschossen:" 

770 DISPLAY AT(15,1>:"TORE E 
MPFANGEN:" 

780 ACCEPT AT(13,19)BEEP:S 

790 ACCEPT AT(15,19)BEEP:W 

800 GOSUB 1740 

810 CALL CLEAR :: NEXT J 

820 GOTO 320 

830 CALL CLEAR 

840 DISPLAY AT(10,7):"TABELL 
E AUSGEBEN" 

850 FOR 1=1 TO 300 :: NEXT I 
860 CALL CLEAR 
870 FOR A=1 TO Z-l 
880 K=A 

890 FOR J=A+1 TO Z 
900 IF PP(J)<PP(K)THEN 980 
910 IF PP(J)>PP(K)THEN 970 
920 IF MP(J)>MP(K)THEN 980 


930 IF MP(J)<MP(K)THEN 970 

940 IF (TG(J)-TE(J)X<TG(K>- 

TE(K))THEN 980 

950 IF (TG(J)-TE(J)>><TG(K>- 

TE(K))THEN 970 

960 IF TG(J)<TG(K)THEN 980 

970 K=J 

980 NEXT J 

990 xi$=v$(A):: X2=PP(A):: x 
3=MP(A):: X4=TG(A):: X5=TE(A 
) 

iooo v$(A)=v$ (K) :: pp(A)=pp( 

K):: MP(A)=MP( K):: TG (A)=TG( 
K):: TE(A)=TE(K) 

1010 v$(K)=Xi$ :: PP(K)=X2 : 

: MP( K)=X3 :: TG(K)=X4 :: TE 
(K)=X5 
1020 NEXT A 

1030 IF Z<=18 THEN B=1 
1040 IF Z>18 THEN B=2 
1050 DISPLAY AT(1,3):B 
1060 DISPLAY AT(1,5):".BUNDE 
SLIGA-TABELLE" 

1070 DISPLAY AT(2,1):"- 


1080 DISPLAY AT(3,17):"TORE. 

..PUNKT" 

1090 CALL HCHAR(3,31,69) 

1100 FOR 1=1 TO 9 

1110 CALL HCHAR(1+3,2,48+1) 

1120 CALL HCHAR(I+13,1,48+1) 

1130 NEXT I 

1140 FOR 1=1 TO 10 

1150 CALL HCHAR(1 + 12,2,47 +1) 

1160 NEXT I 

1170 CALL HCHAR(23,1,50):: C 
ALL HCHAR(23,2,48) 

1180 FOR 1=1 TO 20 

1190 CALL VCHAR(4,3,46,20) 

1200 NEXT I 

1210 FOR A=1 TO Z 

1220 DISPLAY AT(A+3,2)SIZE(1 

4):V$<A) 

1230 DISPLAY AT(A+3,17):USIN 
G "##":TG(A) 
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1240 DISPLAY AT(A+3, 19) : " : " 
1250 DISPLAY AT(A+3,20):USIN 
G "##":TE(A) 

1260 DISPLAY AT(A+3,24):USIN 
G "##":PP(A) 

1270 DISPLAY AT(A+3,26): H :" 
1280 DISPLAY AT(A+3,27):USIN 
G "##":MP(A) 

1290 NEXT A 

1300 DISPLAY AT(24,1):"RUECK 
SPRUNG BITTE LEERTASTE" 

1310 CALL KEY(0,K,S):: IF S= 
0 THEN 1310 

1320 IF K< >32 THEN 1310 
1330 GOTO 320 
1340 CALL CLEAR 
1350 DISPLAY AT(10,7):"TABEL 
LE EINGEBEN" 

1360 FOR 1=1 TO 300 :: NEXT 
I 

1370 CALL CLEAR 
1380 FOR J=1 TO 2 
1390 DISPLAY AT(4,1):(J) 
1400 DISPLAY AT(5,1):"- 


1410 DISPLAY AT(7,1):"TORE G 
ESCHOSSEN: u 

1420 DISPLAY AT(9,1):"TORE E 
MPFANGEN:" 

1430 DISPLAY AT(12,1):"PLUSP 
UNKTE!" . 

1440 DISPLAY AT(14,1):“MINUS 
PUNKTE:" 

1450 ACCEPT AT(7,20)BEEP:TG( 
J) 

1460 ACCEPT AT(9,20)BEEP:TE( 
J) 

1470 ACCEPT AT(12,20)BEEP:PP 
(J) 

1480 ACCEPT AT(14,20)BEEP:MP 
(J) 

1490 DISPLAY AT(23,8):"ALLES 
RICHTIG?" 


1500 DISPLAY AT(24,8):"JA=1. 

..NEIN=0" 

1510 CALL KEY(0,K,S):: IF S= 
0 THEN 1510 
1520 IF K=49 THEN 1560 
1530 IF K=48 THEN 1450 
1540 IF K< >49 AND K<>48 THEN 
1510 
1550 ! 

1560 NEXT J 

1570 GOTO 320 

1580 CALL CLEAR 

1590 DISPLAY AT(10,6):"TABEL 

LE SPEICHERN" 

1600 FOR 1=1 TO 300 :: NEXT 
I 

1610 OPEN #1:"CS1",SEQUENTIA 
L,INTERNAL,OUTPUT,FIXED 120 
1620 PRINT #1:2 
1630 FOR J=1 TO 2 
1640 PRINT #l:V$(J),PP(J),MP 
(J),TG(J),TE(J) 

1650 NEXT J 

1660 CLOSE #1 

1670 GOTO 320 

1680 CALL CLEAR 

1690 DISPLAY AT(10,4):"ALLE 

DATEN GESICHERT?" 

1700 DISPLAY AT(12,12):"<J/N 
>" 

1710 ACCEPT AT(14,14)BEEP:B* 
1720 IF B$<>"J" AND B$<>"j" 
THEN 320 
1730 END 

1740 TG(J)=TG(J)+S :: TE(J)= 
TE(J)+W 

1750 IF W=S THEN PP(J)=PP(J) 
+1 :: mp(J)=mp(J)+ l :: goto 

1780 - 

1760 IF W>S THEN MP(J)=MP(J) 
+2 :: GOTO 1780 
1770 PP(J)=PP(J)+2 
1780 RETURN 





TIPS & TRICKS 


DAS GETPUT-UNTERPROGRAMM 


Diese Programmroutine wird be¬ 
nutzt, um Daten in eine Datei zu 
schreiben und aus ihr zu lesen. Diese 
Datei muß vorher mit dem Prep- 
und Header-Unterprogrammen defi¬ 
niert worden sein. Die Routine wird 
mittels Call in der folgenden Form 
aufgerufen: 

1. Call G (R/W, REC, FLD, V) 

2. Call G (R/W, REC, FLD, V$) 

3. Call G (R/W, REC, FLD, MIS/V2) 

4. Call G (R/W, REC, FLD, MIS, 

V2$) 

wobei die Werte folgende Bedeutung 
haben:■ 

R/W=Schreib-Lesecode (num. Ausd.) 
REC=Datensatznummer(num.Ausd.) 
FLD=Feldnummer (num. Ausdruck) 
V=numerischer Wert (num. Wert) 
V$=StringDaten (String Ausdruck) 
MIX=Rückgabecode (num.Variable) 
V2=Rückgabevariable(num. Var.) 
V2$=Rückgabevariable (String- 
Variable). 

Der Wert von R/W zeigt an, ob ge¬ 
lesen oder geschrieben worden ist. 

_Die Werte sind 

0=schreibe gültige Daten in das Feld 
l=lies Daten aus dem Feld 
2=zeige fehlende Daten aus dem 
Feld an. 

Jeder andere Wert für R/W verur¬ 
sacht einen Fehler. REC bedeutet 
Record=Datensatznummer. Im 
Modul Personal Recording Keeping 
wird dieser Wert als Seitennummer 
verwendet und im Statistikmodul 
als „Observation“. Wenn der Wert 
größer als die höchste mögliche 
Datensatznummer ist, kommt es zu 
einem Fehler. 

Wenn mit einem Schreibbefehl auf 
eine höhere Datensatznummer als die 
bisher höchste Datensatznummer zu¬ 
gegriffen wird, wird diese im Header 
als die neue Datensatznummer zwi¬ 
schengespeichert. Mit einem Lese¬ 
befehl an einen nicht definierten 
Datensatz kommt es zu unvorher¬ 
sehbaren Folgen. Deshalb ist es 
wichtig, die Datensätze nur mit fort¬ 
laufenden Nummern zu vergeben. 
Negative Werte oder Null ergeben 
ebenfalls unvorhersehbare Ergeb¬ 
nisse. . 

FLD bezeichnet die Feldnummer 
innerhalb eines Datensatzes. Jeder 
Datensatz hat die gleichen vordefi¬ 
nierten Felder. Wenn die Feldnum¬ 
mer größer ist als die höchste bisher 
definierte Feldnummer, führt dieses 
zu einem Fehler. Negative Feldnum¬ 
mern oder Null führen zu unvorher¬ 
sehbaren Folgen. V und V$ sind 
Variable, die in Datenfiles geschrie¬ 
ben werden. Sie können auch ma¬ 
thematische Ausdrücke sein; dann 
wird das Ergebnis abgespeichert. 
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TI-MODULEN 


Wenn die Werte nicht mit der Da¬ 
tensatzart übereinstimmen (z.B. 
Strings, wo nur numerische Werte 
zugelassen sind) kommt es zu un¬ 
vorhersehbaren Ergebnissen. Eben¬ 
falls kommt es zu Fehlern, wenn 
ein Feld als dezimales Feld definiert 
ist. mit einer Gesamtlänge von 6. 
davon 2 nach Kommastellen. 

Hier sind sowohl 7654 als auch 
7.654 unbrauchbare Werte. 7654 
hat eine Stelle zuviel auf der Seite 
links vom Punkt und 7.654 hat eine 
Stelle zuviel auf der rechten Seite 
vom Dezimalpunkt. Wenn fehlende „ 
Daten aus dem Datenfeld herausge¬ 
sucht werden sollen, muß V bzw. 

V$ im Callaufruf bei den Parame¬ 
tern mit berücksichtigt werden. 
Eventuell eingegebene Werte wer¬ 
den jedoch ignoriert. 

MIS ist eine numerische Variable, 
mit der ein Code bereitgestellt wird. 
Dieser Parameter muß bereitgestellt 
werden, wenn Sie aus dem Daten¬ 
satz lesen wollen; wird aber nicht 
benötigt, wenn Sie auf den Daten¬ 
satz schreiben. MIS=0 bedeutet, daß 
Daten gefunden wurden, MIS=1 be¬ 
deutet, daß die Daten fehlen. V2 
bzw. V2$ enthalten die Variablen, 
wenn sie aus dem Datensatz heraus 
lesen. Die Datensatzart, V2 für nu¬ 
merische Werte, V2$ für Strings, 
muß mit dem Inhalt des Datenfel¬ 
des übereinstimmen. Wenn Sie versu¬ 
chen, mittels V2$ Daten zu lesen, 
oder mittels V2$ numerische Daten 
zu lesen, kommt es in jedem Fall zu 
einem Fehler. Wenn bei einem Lese¬ 
versuch keine Daten gefunden wer¬ 
den, wird die Rückgabevariable 
nicht geändert. 


DAS HEADER-UNTERPROGRAMM 

Dieses Unterprogramm wird benutzt, 
um Informationen in den Header ei¬ 
nes Datensatzes zu schreiben oder 
davon zu lesen. Es wird mittels Call 
in einer der folgenden Formen auf- 
geiufen: 

1. Call H (R/W. Info, FLD, V) 

2. Call H (R/W, Info, FLD, V$) 
wobei die Werte folgende Bedeutung 
haben: 


R/W=Vorgangscode (num. Ausdr.) 
Info=Headerartnummer (num. Aus¬ 
druck) 

FLD=Feldnummer (num. Ausdr.) 
V=Variablenname (num. Ausdruck) 
V$=Variablenname (Stringausdruck) 
R/W ist der Schreib-Lesecode mit 
folgenden Bedeutungen: 
0=Schreibinformation in Header 
l=Leseinformation im Header 
Info enthält einen Wert von 1 bis 14, 
der angibt, welche Art von Daten in 
den Header geschrieben bzw. gele¬ 
sen werden. Die Struktur ist wie 
folgt aufgebaut: 

1. Datensatzname 0 bis 9 Zeichen, 

2. Datum (Tag) Zahl von 1 bis 31, 

3. Datum (Monat) Zahl von 1 bis 1 2, 

4. Datum (Jahr) Zahl von 0 bis 99, 

5. Anzahl der Felder je Datensatz. 
Dieser Wert wird automatisch ak¬ 
tualisiert. und zwar jedesmal, 
wenn eine neue höchste Feldnum¬ 
mer definiert wird. 

6. Anzahl Datensätze. Dieser Wert 
wird ebenfalls automatisch aktua¬ 
lisiert und zwar jedesmal, wenn 
mittels Call Getput (Call G) ein 
neuer „höchster“ Datensatz ge¬ 
schrieben wird. 

7. Länge des Headers in Bytes. Die¬ 
ser Wert wird automatisch zuge¬ 
ordnet. 

8. Länge jedes Datensatzes in Bytes. 
Dieser Wert wird automatisch zu¬ 
geordnet. 

9. Feldname=bis 9 Zeichen. 

10. Art des Feldes: 
l=Alphazeichen 
2=ganzzahlige Werte 
3=Dezimalwerte 
4=Expotentialwerte 

11. Feldlängen Alphazeichen. 

(1 bis 15) Ganzzahlwerte 
(1 bis 10) Dezimalwerte 

(2 bis 11) Expotentialfunktionen 
(8 bis 13) Länge wird automatisch 
zugeordnet. 

12. Anzahl der Nachkommastellen 
je Feld. Bei Alphazeichen 

0 (automatische Zuordnung). 
Ganzzahl werte 0 (automatische 
Zuordnung). Dezimalwerte 1 bis 
Feldlänge minus 1. Expotential¬ 
funktionen 0 bis 5. 

13. Speicherplatz für Felder in Bytes. 
Dieser Wert wird automatisch zu¬ 
geordnet. 

14. Position des Feldes innerhalb 
des Datensatzes. Dieser Wert wird 
automatisch zugeordnet. 

Hinweis: Werte 9 bis 14 werden für 
jedes Feld automatisch wiederholt. 
FLD bezeichnet die Feldnummer. 
Dieser Wert wird von den vorge¬ 
zeichneten Punkten 1 bis 8 ignoriert, 
muß jedoch in der Parameterliste 
aufgeführt werden. 

Wenn Daten in den Header geschrie¬ 
ben werden oder vom Header gele- 
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sen werdefifbezeichnet V bzw. V$ 
die Konstante, Variable, Ausdruck 
bzw. String, die jeweils geschrieben 
oder gelesen werden. Auf die jeweils 
richtige Zuordnung von numerischen 
bzw. Stringvariablen ist zu achten. 
Nachstehend nun noch 2 Beispiel¬ 
programme, die die vorstehend er¬ 
läuterten Unterprogrammaufrufe 
verwenden. Das 1. Programm wan¬ 
delt ein Personalrecordkeepingfiles 
in 2 Standardbasicfiles um. Das erste 
der beiden ist der Header und das 
zweite sind die Daten. Das Pro¬ 
gramm geht davon aus, daß die Da¬ 
teien auf eine Diskette gespeichert 
sind. Vor Programmausführung sind 
folgende 3 Befehle im Direktmodus 
unter Basic (Option 1) durchzufüh¬ 
ren. 

> Call Files (1) 

> Call P (10000) 

> New 

Lassen Sie nun das erste Beispielpro¬ 
gramm ablaufen. Nachstehend noch 
eine Erläuterung für die Bedeutung 
jeder einzelnen Programmzeile. 

100: Lädt den Datensatz in den re¬ 
servierten Speicherbereich. 

110: Fehlerabfrage. 

0=Fehler 40=erfolgreich geladen. 

120: eröffne Header-Datensatz. 

130: Lese internen Datensatznamen 
140: Lese Anzahl der Felder je 
Datensatz. 

150: Lese Anzahl der Datensätze. 
160: Schreibe Information in das 
Headerteil. 

170: Schreibe Information auf den 
Bildschirm. 

180: Schleife, um Felddefinitionen 
auszulesen. 

190: Lese Feldname. 

200: Lese Feldtype . 

210: Lese Feldlänge. 

220: Erkenne Schreibweise. 

230: Alphafeld: Länge=Länge plus 1. 
240: Unbedingter Sprung. 

250: numerische Feldlänge = Länge 
plus 9. 

260: Lies Anzahl der Nachkomma¬ 
stellen. 

270: Schreibe Information in das 
Headerfile. 

280: Schreibe Information auf den 
Bildschirm. 

290: Ende der Schleife. 

300: Schließe Header-Datensatz. 

310: Öffne Datenfile 
320: Eröffne Schleife, um Datensät¬ 
ze zu lesen, um in das Datafile zu 
schreiben. 

330: Schreibe Datensatznummer auf 
den Bildschirm. 

340: Eröffne Schleife, um Felder je¬ 
des Datensatzes zu lesen. 

350: Lies Feldtype. 

360: Prüfe Feldtype. 

370: numerisches Feld, schreibe 
Variable ins numerische Feld. 


380: Prüfe Code Für fehlende Daten. 140: Öffne Schleife, um sämtliche 
390: Fehlende numerische Daten, Werte in den Header des Personal¬ 
speichere negativen unendlichen Wert. Record-Keeping zu schreiben. 

(Wie fehlende Daten im Programm 150: Lese Feld, Name, Art, Länge 
behandelt werden ist einzig und allein und Anzahl der Dezimalstellen. 
Ihre Entscheidung.) 160: Schreibe Information auf den 

400: Daten gefunden, schreibe. Bildschirm. 

410: Schreibe Daten auf den Bild- 170: Schreibe Feld. Name in den 


schirm. 

420: Unbedingter Sprungbefehl. 

430: Alphafeld, schreibe in die 
String-Variable. 

440: Prüfe Code für fehlende Daten. 
450: Fehlende String-Daten, spei¬ 
chere eine Leerstelle. (Wie fehlende 
Daten gehandhabt werden ist einzig 
allein Ihre Entscheidung.) 

460: Daten gefunden, schreiben. 

470: Schreibe Daten auf den Bild¬ 
schirm. 

480: Ende der Schleife. 

490: Beende den Datensatz zu 
schreiben. 

500: Beende Bildschirmausgabe. 

510: Ende der Datensatzschleife. 
520: Schließe Datensatz. 

530: Stop. 

540: Fehlerausgabe aus Sprungbe- 
. fehl von Zeile 110. 

550: Programmende. 

Das Ergebnis dieses Programmes ist 

1. ein Header-Datensatz mit folgen¬ 
dem Inhalt 

a) der Dateiname, Anzahl der Felder 
je Datensatz und Anzahl der Daten¬ 
sätze, die in Satz 0 gespeichert sind, 

b) die Definition (Name, Art, Länge, 
Nachkommastellen) der Felder in 
den jeweiligen Datensätzen. 

2. Ein Dateifile mit den entsprechen¬ 
den Datensätzen. 

Beispielprogramm 2: 

Das folgende Basicprogramm nimmt 
den Headerdatensatz und die Data- 
datensätze (wie z.B. vom vorstehen¬ 
den Programm erzeugt) und wandelt 
sie in ein Personal-Record-keeping- 
File um, das anschließend mit der 
Save-Routine abgespeichert werden 
kann. 

Folgende drei Befehle sind ebenfalls 
vor Programmausführung im Direkt¬ 
modus einzugeben: 

> Call Files (1) 

> Call P (10000) 

> New 

Führen Sie nun das Programm aus. 
Für jede Programmzeile nachstehend 
wieder die Erläuterungen: 

100: Eröffne den Headerdatensatz. 
110: Lies Datensatzname, Anzahl 
der Felder je Datensatz und Anzahl 
der Datensätze. 

120: Schreibe Information auf den 
Bildschirm. 

130: Schreibe Information in den 
Header des Personal-Record-Keeping- 
Datensatzes. 


Personal-Record-Keeping-File- 

Header. 

180: Schreibe Feldlänge in den 
Header. 

190: Prüfe die Art, bei Expotential¬ 
schreibweise schreibe keine Länge 
in den Header. 

200: Schreibe Feldlänge in den 
Personal-Record-Keeping-Header. 
210: Prüfe Art, für Buchstaben und 
ganzzahlige Felder, schreibe keine 
Nachkommastellen. 

220: Schreibe Anzahl der Dezimal¬ 
stellen in den Header. 

230: Ende der Schleife 
240: Schließe das Headerfile. 

250: Eröffne das Dateifile 
260: Eröffne Schleife, um Dateidata- 
sätze zu lesen und sie in das Personal- 
Record-Keeping-File zu schreiben. 
270: Schreibe Datensatznummer 
auf den Bildschirm. 

280: Eröffne Schleife, um die Felder 
jedes Datensatzes zu lesen. 

290: Lese Feldart. 

300: Prüfe Feldart. 

310: Numerisches Feld, schreibe ins 
numerische Variable 
320: Schreibe Daten auf den Bild¬ 
schirm. 

330: Prüfe, ob diese Eingaben als 
fehlende Daten interpretiert werden 
sollen. 

340: Normale Daten, schreibe diese 
in das Personal-Record-Keeping-File. 
350: Unbedingter Sprung. 

360: Stelle fehlende numerische 
Dätcn fest 

370: Unbedingter Sprungbefehl. 

380: Alphanumerisches Feld, schrei¬ 
be in String-Variable. 

390: Schreibe Daten auf den Bild¬ 
schirm. 

400: Prüfe, ob Daten fehlen. 

410: Normale Daten, schreibe sie in 
das Personal-Record-Keeping-File. 
420: Unbedingter Sprungbefehl. 

430i\ Stelle fehlende Alpanumerische 
Daten fest. 

440: Ende dieser Schleife. 

450: Beende diesen Datensatz. 

460: Beende die Bildschirmausgabe. 
470: Ende der Datensatzschleife. 

480: Schließe das Dateifile. 

490: Speichere Personal-Record- 
Keeping-File ab. 

500: Prüfe Fehleranzeige 
0=Fehler 40=erfolgreich. 

510: Gib Fehlermeldung auf Bild¬ 
schirm aus. 

520: Programmende. 
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SOFTWARE IM TEST 


THE MINE _ 

Vertrieb: Fa. Radix/Hamburg, 

Disk für Ext. Basic mit Speicherer¬ 
weiterung. 

Nach dem Laden des Spieles befin¬ 
det man sich in einem von insge¬ 
samt 25 Räumen. Die Aufgabe be¬ 
steht nun darin, alle schwarzen Fu¬ 
gen der Mauersteine weiß einzufär¬ 
ben. Dies klingt sehr einfach, wenn 
nicht in jedem der Räume andere 
Hindernisse zu überwinden und ge¬ 
fährliche Situationen zu bewältigen 
wären. Alle Gefahren. Hindernisse 
und Spielsituationen aufzuzählen 
würde den Rahmen dieser Beurtei¬ 
lung bei weitem sprengen. Um 
auch den Anfänger in den Genuß 
aller Räume kommen zu lassen, 
kann man von einem Raum in den 
anderen gelangen auch ohne die 
gestellte Aufgabe ganz zu erfüllen. 
Nach jedem Spieldurchgang oder 
auch auf Wunsch während des Spie¬ 
les wird ein Grundriß aller Räume 
und der augenblickliche Standort 
angezeigt. Wen die hübsche Hinter¬ 
grundmusik stört, der kann sie 
während des Spielverlaufes wahlfrei 
ein- oder ausschalten. Mit der 
Grafik hat sich der Autor sehr viel 
Mühe gegeben, dementsprechend 
ist sie auch gelungen, Wer keinen 
Joystick besitzt, kann dieses Spiel 
auch über die Tastatur steuern. 

Alles in allem ist dies ein hervorra¬ 
gendes Spiel für den TI 99/4A mit 
viel Komfort und Abwechslung. 

Viel Spaß und lange Spielfreude 
dürften garantiert sein bei diesem 
Spiel aus der Großfamilie der 
Leiterspiele. 


Bewertung: 


Spielidee 

++ 

Grafik 

+++ 

Motivation 

++++ 

Gesamturteil 

+++ 


NEUE 

SPIEL- 

MODULE 


SUB-HUNT _ 

Vertrieb: Fa. Radix/Hamburg, 

Disk für Ext. Basic mit Speicher¬ 
erweiterung. 

Sub-Hunt ist ein Kriegsspiel, in dem 
der Spieler als U-Bootkommandant 
6 feindliche Convoys vor dem 
Erreichen des sicheren Hafens ver¬ 
nichten muß. Die Convoys werden 
von Zerstörern und Flugzeugen be¬ 
gleitet, welche ihre Waffen wirkungs¬ 
voll einzusetzen wissen. Als Hilfsmit¬ 
tel stehen dem Spieler Seekarte, 
Sonar und Periskop zur Verfügung. 
Da der Joystick mehrfach belegt 
wurde, fällt die Steuerung sehr 
schwer und eine Eingewöhnungszeit 
ist unbedingt notwendig, um bei 
diesem Spiel überhaupt eine Chance 
zu haben. Die Grafik für den Innen¬ 
raum des U-Bootes ist einigermaßen 
gelungen, doch bei den Sprites der 
Schiffe versagte anscheinend die 
Fantasie des Autors. 

Zum Laden des Spieles wird die 
Diskettenstation, die 32K-Erweite- 
rung und wahlweise Mini-Memory-, 
E/A- oder X-Basicmodul benötigt. 


Bewertung: 

Spiel idee ++ 

Grafik ++ 

Motivation ++ 

Gesamturteil ++ 


STAR WARS _ 

Vertrieb: Fa. RADIX/Hamburg, 

Disk für Ext. Basic mit Speichererwei¬ 
terung. Das Spiel entspricht dem 
Atari-Modul ..The Empire strikes 
back“. Um dieses Spiel auch mit 
dem Mini-Memory Modul laden zu 
können, wurde auf den Sound voll¬ 
kommen verzichtet. 

Ein lautloser Kampf zwischen einem 
Jet und 14 Stahlmonstern spielt sich 
vor einer Gebirgslandschaft ab. 

4 Jets stehen für das gesamte Spiel 
zur Verfügung. Mit ihrer Hilfe und 
einer Laserkanone müssen pro Run¬ 
de 4 Stahlmonster vernichtet wer¬ 
den. Dies gelingt nur mit sehr gut 
gezielten Schüssen. Der Gegner er¬ 
widert das Feuer mit Laserkanonen 
und mit Lenkwaffen. Nach jeder 
siegreich beendeten Runde werden 
die Monster aggressiver und schnel¬ 
ler. In der unteren Bildschirmmitte 
wurde eine Hilfszieleinrichtung ge¬ 
neriert. auf die man sich aber 
nicht unbedingt verlassen sollte. 

Die obere Bildschirmhälfte beinhal¬ 
tet außer den Anzeigen für Punkte, 
Highscore. Runde. Jets und Treib¬ 
stoff noch ein Sichtfenster, in dem 
die Kampfhandlung verkleinert wie¬ 
dergegeben wird. Die Stahlmonster 
bewegen sich in diesem Ausschnitt 
langsam von links nach rechts. Er¬ 
reichen sie den rechten Rand, so ist 
die Aufgabe nicht gelöst und das 
Spiel beginnt von neuem. 

Daß dieses Spiel in Assembler ge¬ 
schrieben wurde, garantiert für eine 
rasante Kampfhandlung, die (viel¬ 
leicht auch durch das Fehlen jeg¬ 
licher Kampf- oder Fluggeräusche) 
auf die Dauer doch recht eintönig 
werden dürfte 


Bewertung: 

Spielidee ++ 

Grafik +++ 

Motivation ++ 

Gesamturteil ++ 


ACHTUNG! TI-99/4A Besitzer - ACHTUNG!TI-99/4A Besitzer 


Peripherie 

orig. Tl-Peripherie Erw.-Box mit 
Disk-Steuerkarte u. Laufwerk 1.480,- 

32 K-Byte RAM 425,- 

RS 232 Karte 398,- 

Externe Erweiterungen 
32 K-Byte RAM 299,- 

32 K-Byte RAM mit 
Centronics-Interface 399,- 


— Zubehör ' " . 

Graphic Tableau 248,- 

Cartridge Expander (für 3 Module) 128,- 
Akustikkoppler-Dataphon 298,- 

DIN A 4- 4 Farb.-Drucker/Plotter 898,- 
Slim Line Disk-Laufwerk (DS DD) 650,- 


Einbausatz für 2 Siim Line 
Laufwerke in orig. Box 


Module 

Extended Basic (deutsch) 
Mini Memory 
Terminal Emulator II 
Multiplan 
Editor Assembler 

Spiele von 3( 

z. B. Moonmine 


h) 248,- 
290,- 
85,- 
320,- 
220 ,- 

30,- bis 99,- 
65,- 


Alle Preise incl. MwSt. zuzügl. 5.- DM Versandkosten. Lieferung per Nachnahme 
oder Vorkasse, ab 200,- DM versandkostenfrei. 

Fordern Sie unsere kostenlose Preisliste an. 



Programm-Service 


5584 Bullay 

Bergstraße 80 
Telefon 06542/2715 















MACHEN SIE MIT! 

VERDIENEN SIE GELD MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Können Sie programmieren? In Basic oder Maschinen¬ 
sprache? Dann bietet CBM-Revue Ihnen die Möglich¬ 
keit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam¬ 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware - eventuelle Erweiterungen - 
benutzte Peripherie - hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Sollten Sie keinen Drucker haben, genügt der Daten¬ 
träger. 

Sie erhalten Ihre Kassette selbstverständlich zurück, 
wenn Sie einen ausreichend frankierten Rückum¬ 
schlag mit Ihrer Adresse beifügen. 

Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzten Sie bitte anhängendes Formu¬ 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete" Programme ziemlich schnell 
erkennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto¬ 
kopieren. 


PROGRAMMANGEBOT 


Name des Einsenders: _ 

Straße/Hausnr./Tel.: _ 

Plz/Ort: - 

Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt () Listings () Kassette () Diskette 

Ich versichere, der alleinige Urheber des Programmes zu sein! 

Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken. Sollte es in den Kassetten-Service aufge¬ 
nommen werden, erhalte ich auch dafür eine entsprechende Vergütung. 


Rechtsverbindliche Unterschrift 


TI REVUE 
Postfach 1107 
8044 Lohhof 




